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First of all, please remember our dues are now $14 year or $24 air¬ 
mail overseas. Groups may order 10 or more at a 40% discount to the 
same address by 3rd class mail or plus $12 year priority mail. 

Last month, a new Atari magazine was started called The Atari Ex¬ 
plorer. This replaces the old magazine put out by the Atari company, 
The Atari Connection, and includes all the information about the new 
Ataris. There is also a very nice article by David and Dorothy Heller 
about our club which has brought us many new members (Thanks, 
Dave and Dorothy!). There are many fine articles and you can get 
yours for only $15 a year (6 issues). I had to wait until I saw it at a 
newstand to buy it, and was pleased with it. Incidently, the Hellers 
have introduced ACE to many members through their book, Free Soft¬ 
ware for the Atari, so we have a lot to be thankful to them. We are all 
anxiously awaiting the arrival of the new Atari Line and hope to give 
you the scoop on them after we can try them. 

This month, we received two new book in the OMNI series by Col¬ 
lier Books (division of Macmillan Publishing Co., 866 Third Ave., N.Y. 
10022). The first was OMNI Complete Catalog of Computer Hardware 
and Accessories ($14), a goldmine of practical information, advice and 
reviews on all types of computer equipment (they really like the Atari 
800XL!). For someone like myself who goes to computer garage sales 
and buys slightly used items, it is indispensable. Lots of very useful 
information, and, of the reviews of equipment I know about, very ac¬ 
curate. The other is the new OMNI Online Database Directory 1985 
($15), which is a complete evaluation of over 1100 databases including 
the usual ones such as the Source and CompuServe, and many, 
special service ones ranging in cost from nothing other than the 
phone bill to $1000 a month or more. Incidently, I hear the Delphi is 
very good and now has a large Atari SIG, and costs $6 hour including 
1200 BAUD. 

Jerry White, the prolific software author of many well known Atari 
programs (Trivia Trek, Poker S.A.M., U.S. Adventure, MusicBox, Filelt2, 
and many others) now has come out with a utility disk of programs he 
uses commercially in his program development. Called Animation Us¬ 
ing Character Graphics — a tutorial/utility package it is available only 
direct from Jerry for $12 (18 Hickory Lane, Levittown, NY 11756. The 
programs are public domain — you can use them for your program 
development — but the disk is not. Using your Atari and a program 
such as the Datasoft MicroPainter, Graphics Master or the Versa 
Writer, it allows you to make pictures on the screen and convert them 
to character graphics requiring much less memory, animate them, etc. 
The disk has seven utilities and is designed for programmers. 

Synapse, the originators of FileManager and the Syn series, as well 
as a number of fine games is now a division of Broderbund. They have 
just released a number of interactive novels which should be very in¬ 
teresting, to say the least. This is a new art form, and allows you to 
pick alternate paths so the novel has an almost infinite number of 
variations. 

In future issues, we have many fine programs and articles. The U.K. 
Atari Owners Club (POB 3, Rayleigh, Essex, England, 7lbs. Sterling 4 
issues or 10lbs50 Airmail) has a very fine newsletter and many pro¬ 
grams of the type Stan Ockers and Sydney Brown give us, and we 
hope to reprint some of them over the next few months. Paul 
Freeman, a new ACE member, sent us a sample disk of his programs 
and they are also of this quality; he is an experienced writer also and 
has promised us articles to go along with these programs — wait till 
you see his educational program on the living cell!! Ralph Walden will 
be submiting programs in ACE-C, and the prolific John Kelly will con¬ 
tinue to send mostly educational programs. Not to mention Stan 
Ockers and Sydney Brown. Lots of good stuff coming up. 

«********«****««»•**«««**« 

FLASH 


The March issue of BYTE, 
now on the newstands, feature 
the new Atari computers, and 
they like them ! ! 

NEXT MONTH: A wonderful 
educational program by Paul 
Freeman, The Living Cell, has 
impressive graphics and is 
very entertaining- welcome to 
ACE, Paul. Stan Ockers will 
continue his Label program as 
mentioned above, and who knows 
what else? 

************************** 


BUMPAS REVIEWS 

Correction! In the February, 1985 issue, I reviewed the game, FIELD 
OF FIRE, a very good game. Unfortunately I attributed the game to 
Avalon Hill. Avalon Hill might wish they had the game in their line-up, 
but the game is sold by STRATEGIC SIMULATIONS, Inc. for $39.95. i 
hope no one was unable to find the game because of my error. 

Atari continues to do things right. Apparently, DOS 3.0 will be 
treated to a well-deserved exit. Enter DOS 2.5! 

DOS 2.5 will be easy to operate for anyone familiar with DOS 2.0. It 
presents the familiar screen menu. It will freely access any disk for¬ 
matted in the DOS 2.0 type format. But it has some additions. 

It permits automatic use of the dual density format of the Atari 1050 
and the Indus GT. Whenever you format a disk, it assumes you want 
the 1010 sectors available in this mode. If the drive responds, unable 
to format in this mode, the DOS automatically assumes it’s an 810 
and formats the disk in single density. A new “P” command is added 
to the menu to force single density formatting if desired. Appropriate 
XIO commands have been added to access these functions from 
BASIC. 

DOS 2.5 gives you 1010 sectors (999+ shows on the Directory 
when the disk is empty). When the disk is full, any files in sectors 
721-1010 are highlighted. These files will not be accessible with any 
other DOS. I tried MYDOS 3.013, SmartDOS, TOPDOS, DOS 2.0, DOS 
2.6f, DOSXL and MachDOS. All of them read the disk as though it was 
single density with only 720 sectors. Even the file names of the files in 
those higher sectors could not be listed. They are invisible to these 
DOS. 

Sector reading utilities, such as are available in DiskWiz, are able to 
manipulate the data in these sectors. And SynFile+ and SynCalc are 
fully able to use files in this format. This is a minor incompatibility of 
DOS 2.5 with other DOS. Inconsequential when compared with the 
problems of DOS 3.0. I was unable to use DOS 2.5 to access a double 
density disk on the Indus GT. Another minor problem. This is the only 
item I want to see improved. 

Just as with double density disks, you cannot read a dual density 
disk on an 810-type drive, no matter what DOS you use. You must have 
a drive capable of accessing the 1050 dual mode. 

The beta-test disk from Atari had another interesting file on it, 
which I was unable to use. It has an intriguing name: 
“RAMDISK.SYS”. I believe this is a handler which automatically 
makes the extra 64k a available to the users of the new 130XE 
machines! I dunno — maybe it will also work with Axlon and Mosaic 
boards in our old 800’s. If anyone tries this, let us know and we’ll 
share the information. 

My drive #1 is an Atari 1050. I use an Indus GT as drive 2. DOS 2.5 
provides me with the first meaningful opportunity to use the 1050’s 
dual mode since I chose not to use DOS 3.0. DOS 2.5 is yet another 
sign that the combination of Tramiel and Atari produces a computer 
company which knows what to do in today’s market place. 

The Journal of Computers in Mathematics and Science Teaching is 
a quarterly published by the Association for Computers in 
Mathematics and Science Teaching. Subscriptions are $18 to: ACM- 
ST, Box 4455, Austin, TX 78765. 

User-to-User plans to publish a quarterly catalog of “wierdware” for 
$4 an issue. July, 1985 is the projected first publication date. They 
plan to have more than 200 programs in this first issue. The programs 
will all be priced under $20. Rates for program descriptions is $15/100 
words. So, if you have a program you developed for your own use, 
maybe someone else might also have a use for it. 

Non-programmers will have the opportunity to buy new and current 
software at reasonable prices. Clubs can advertise their libraries. The 
catalog will also offer clubs additional exposure in which to expand 
their membership base. The catalog will include a special appendix 
for clubs. 

User-to-User is based on the premise that if there was a need for so¬ 
meone to write a particular piece of software, then there are others 
who can also use it. The catalog will be advertized in national com¬ 
puter magazines. For more information, send a SASE to User-to-User, 
Box 2605, Eugene, OR 97402. 

CMOS 6502 

Now the price of CMOS 6502 chips are as low as $8, many Atari 
users are upgrading to this chip by replacing their old 6502 CPU. 
There are a number of advantages. The new chip adds a couple dozen 
new op-codes which make programming easier (these programs will 
only run on a CMOS chip). The new chip is “low-power”, meaning it 
uses only about 1/100 the power of the old chip — less chance of 
over-heating (mine never did overheat). The new chip also has a better 
floating point math package, so it crunches numbers faster than the 
old chip. Best of all, the CMOS is perfectly compatible with the Atari 
^ 400/800. 



Now for the bad news. It’s not compatible with the XL Ataris, and so 
probably not with the XE series, either. And even 400/800 users might 
not want to upgrade because certain software vendors sell protected 
software which crashes upon finding a non-conforming chip on the 
board. I believe some of the products from Electronic Arts and 
Synapse will not work with this chip installed. I could not get Syn- 
File + to work, but SynCalc did. 

If you don’t use the few products which crash out when they find 
these chips, you might find them a useful and inexpensive upgrade to 
make. 

COMPUTELY DIFFERENT ($1 and a stamped, self-addressed #10 
envelope to Maia Nemzek, 1818 20th Avenue #302, Seattle, WA 98122) 
intends to stimulate creative ideas, lively discussion, and high-quality 
applications. The following themes are in the first issue: Noxious Ef¬ 
fects of Computer Technology; Computer Applications in the Arts; 
Disalienation: Computing for Connectedness; Are Computers 
Political?; Home and Personal Applications: Types of software that 
don’t exist ... yet. 

BEYOND CASTLE WOLFENSTEIN 

Beyond Castle Wolfensein is a sequel to the adventure game Castle 
Wolfenstein. The object of this game is to sneak into Hitler’s private 
bunker, find the bomb hidden by your cohorts and place it in the con¬ 
ference room. You are supllied with a gun, some money, and a random 
number of passes. Not all of the passes supplied to you are the cor¬ 
rect passes for that level. More bullets, money and passes can be ob¬ 
tained from the bodies of dead guards (of course you must kill them 
first). 

The guards you encounter may either be bribed or shown a pass. If 
you get the wrong pass beware. Guards at the main desk to each room 
complex may be bribed for clues, but these are often cryptic at best. 
Each room has at least one door or way out. It may also have a locked 
closet, which you must pick to enter. The game states that by listen¬ 
ing carefully you can hear the tumblers click when you get the correct 
combination. Unfortunately if there is a guard present the sound as he 
marches back and forth will drown out the tumbler’s click. 

This game may be played with either a joystick or the keyboard. The 
use of the joystick creates a much better feel for the fact that you are 
often required to aim the gun in a rather precise manner to ac¬ 
complish a task, whether killing a guard or opening a locked closet. 
There are five levels to the game. With the toughest level simply call¬ 
ed “?????”. You are allowed all the standerd save game options plus 
some quick start games such as New Game New Bunker level one or 
New Game New Bunker current level. Along the way in the game 
beware of what you leave behind because a dead guard which is 
discovered on another level can trigger an alarm and then getting out 
is truly a challenge. If you enjoyed Castle Wolfenstein then you’ll en¬ 
joy this one as well. 

— Nick Chrones 


COMPUTER AMBUSH 

Computer Ambush (SSI, $60) is a squad-level game representing in¬ 
fantry combat in World War II. You can lead from 1-10 soldiers into 
battle from North Africa to France, or Italy to Russia. 

Your mission takes place in a small town. Your objective can be to 
mop up some German holdouts, or to destroy a Nazi command post. 
Your weapons include rifles, automatic rifles, machineguns, 
grenades, knives, and plastic explosives. Both natural and unlimited 
sighting are allowed, along with three skill levels: Volksgrenadiers 
(green), Wehrmacht (average), or SS (excellent). 

I always play the SS, and I usually lose! The game disk includes 5 
solitare scenarios and 7 two-player scenarios. One of the two-player 
games is a design-your-own where players can create any situation of 
WW II they want. Two 10-man squads are included on the disk, and 
the game has features for the creation of more squads. Each of your 
soldiers is rated for strength, dexterity, firing ability, and throwing 
ability. To help those of us who have difficulty handling ten soldiers at 
a time, SSI thoughtfully included two plastic covered maps, two 
grease pencils, and two quick reference cards. 

I really LOVE this game. It uses a proportional movement, so all the 
actions of your soldiers can be simultaneous. For those of you who 
like board games such as Squad Leader by Avalon Hill, and are 
thoroughly disgusted at extensive line-of-sight rules, rejoice! In Com¬ 
puter Ambush, the computer handles the hard parts and lets you 
worry about simple things like: Is that soldier’s rifle loaded? or Will 
the grenade blow up your soldier as well as the Germans? This is as 
much a role playing game as it is a WW II simulation. An excellent 
game for the advanced wargamer 

— Aaron Ness 


VP’s RAMBLINGS 

I’ve heard from a number of you expressing your complaints about 
magazines, software houses etc., and when we have what we consider 
to be enough complaints about a specific subject or business we will 
try to act on your behalf. Remember if you don’t write we can’t right 
your wrong. 

We are going to have a contest, and this contest is for those of you 
who like to do graphics. We want new designs for the cover of the 
newsletter, both the overall format, and specific graphic dumps. In ad¬ 
dition we want a new opening for our BBS. The prizes will be free 
memberships in ACE, special levels on the BBS no one else has, and 
disks of programs made up with customized menus just for the win¬ 
ners. Mext month I will lay down the rules and everyone is eligible 
whether they are a member or not. There will be many winners and I 
hope to see alot of good ideas and graphics from all of you who read 
ACE. 

If any of you want to see specific types of programs, articles, etc., 
there again please let us know so we may make this newsletter more 
responsive to your needs. If we don’t hear from you we don’t always 
know what you want and can only guess and put in the material we 
think you want to read. We also don’t always get the material we want 
to see so if you have programs or articles you want to share with other 
Atari users let us know about them and if we feel they will go in this 
newsletter we will publish what you send. Somewhere someone may 
be looking for that program you wrote and haven’t let anyone know 
about. 

— Larry Gold 

MMG BASIC COMPILER 

This product has been well advertised in ANTIC and in ANALOG 
with full page ads proclaiming it as the “ultimate” Basic compiler. 
From my experience with it I find it is does not live up to its claims. It 
is, in fact, not a very reliable compiler and certainly not worth the $99 
retail price tag. 

I tried this compiler for over 2 months during which time I used it on 
41 different Atari Basic programs. Of the total number of programs, 
only 17 compiled successfully. 

My procedure was to first testout the basic program to make sure it 
functioned before compiling. Then as a precaution, I cleared the 
variable table thru the List, New, Enter, Save technique. My next step 
was to determine whether the Floating Point Library was necessary 
and load the appropriate files from the Master Disk into a disk in Drive 
2. At this time I also loaded the program I wished to compile onto 
Drive 2. I used 2 drives to avoid extensive disk swapping. 

Unless there were obvious decimals and fractions I used the In¬ 
teger library file and compiled the program. During compilation I 
seldom encountered system errors, but when I did it was usually 
when I had attemped to chain several programs together (supposedly 
allowable). At this time I often got a 129 error — too many channels 
open (Even when they were closed). I got around this by trapping the 
error to the line running the next program in the chain. 

Another system error I got a lot was “Undefined Line number” 
which means the program referenced a non-existent line. Since this 
was never the case, I bypassed the error and finished the compilation 
anyway. Somtimes the program ran anyway. 

Sometimes a program failed to run with no error messages or ex¬ 
planation of any kind from the program or manual. This frustrating 
development resulted in (1 System lockup or (2 a blown display list — 
or both. 

My last procedure was to libraries — Integer for Floating Point or 
Vice Versa. This only worked once. 

It should be obvious by now the MMG COMPILER is not the promis¬ 
ed answer. Save your money! If you need a compiler stick with the 
ABC MONARCH, for the present, as the most reliable compiler even 
with its “Floating Point” limitations. 

— Graham Smith 


HAPPY DRIVES BASIC SLOWDOWN 

Hello folks. I realize it has been a LONG time since I last sat down 
and wrote an article. Well, here is a neat program I wrote a while ago. 
This program allows an owner of HAPPY DRIVES to perform a 
SLOWDOWN in BASIC. I have included many REM statements and 
used the Atari labels as variable names to make understanding the 
program easier. 

— Shane Rolin 

3 




INDEXED FILES MADE EASY 

Indexed files can be used for quick, random retrieval of data, much 
faster than for direct or sequential files. Generally speaking, indexed 
files consist of two files. One file contains the data you require and 
the other file contains the indices or keys pointing to the data records. 
In this article, as a demonstration, we will create a quick-access 
telephone number file. 

By carefully studying how to use the BASIC commands, NOTE and 
POINT, we can easily see how to create and use indexed files. Briefly, 
NOTE #X,SEC,BYT will determine the position of the disk drive’s 
pointer on the file opened on channel #X. It will return the values of 
the sector and byte of the pointer to the variables, which in this case 
are SEC and BYT. POINT #X,SEC,BYT will set the pointer to the byte 
located at sector, SEC, and byte, BYT, on the file opened to channel 
#X. 

In Listing 1, which is the main program, the keys or indices are held 
in a file called “KEYS”. During execution the entire file is in memory 
allowing rapid access. Each entry in “KEYS” is 12 bytes long: the first 
six bytes are the key and the next six contain the sector and byte in¬ 
formation pointing to the corresponding telephone data stored on 
disk in another file called “TELEPHON.DAT”. 

In order to easily remember the key, I use the first three letters of 
the last name and the first three letters of the first name. Thus the key 
for John Smith is SMIJOH. My “TELEPHON.DAT”file has the same 
structure as one published by Jerry White (“Phone Book”, ANTIC, 
Feb. 1984, Vol. 2, No. 11). If you already have used this program and 
have a phone book file, Listing 2 will create a “KEYS” file from your 
“TELEPHON.DAT” file. If you have a name such as John Smiley which 
will duplicate another key, such as John Smith, one of them will be 
given the key SMIJOI. If there is a triplicate, it will be SMIJ02 and .so 
on. 

When you load and run the main program, it will'check if your data 
files are on the disk in drive one. If you have a data file on your disk, 
the options menu will be the first screen to appear. If the file is not 
present or if you are entering your first data record, you will be promp¬ 
ted and asked if you want to continue. You will then see the ADD 
screen. Just follow the instructions and type in your key and the cor¬ 
responding data. When you are finished adding data, type “END”. You 
will then see the menu of options including: ADD, CHANGE (can be 
used to change any part of a record), DELETE, INQUIRY/PRINT (to 
view or make a hard copy of a particular record), SCAN RECORDS (to 
sequentially view the records and remind yourself of the keys in case 
you have forgotten or haven’t printed a copy), and END to return to 
BASIC. 

When a key is typed into the computer, the data are retrieved from 
the disk and appear on the screen in the order of a second or two even 
with hundreds of records. This process is expedited by a machine 
language string search which locates the position of the key in the 
string, S$, which contains all the keys and their corresponding 
variables SEC and BYT (that is, sector and byte). A POINT #1,SEC,BYT 
statement then locates the telephone data on the disk. 

When a record is deleted, the program inserts six blanks for the 
deleted key in the string S$. By searching for blanks, the program can 
write a new record over a deleted one thus saving disk space and 
memory. However, until a deleted record is overwritten, it can still be 
accessed through SCAN RECORDS. 

Another feature worth noting in the program is the use of control 
characters in the strings SEL$ and FIELDS defined in lines 190 and 
200 respectively. When SEL$ is printed on the screen, the menu of op¬ 
tions appears. And FIELDS will print the template for the data entry 
screen. This approach saves many lines of code. Due to an absence of 
an end-of-line character (i.e. RETURN), I had to use (ESCAPE DOWN) 
followed by (ESCAPE SHIFT-DELETE) in these strings. This combina¬ 
tion of keys achieves almost the same effect as a RETURN. 

This indexed file is probably the simplest one possible. The next 
level of complexity might include a sort subroutine to put the keys in 
alphabetical order. Then the data could be accessed in alphabetical 
order based on the keys. Since there are several excellent machine 
language sort routines in print, I leave the next step as an exercise for 


the reader. 

List of Variables 

A 

Index used to identify key as substring in S$ 

AREAS 

Area code 

BLK$ 

String of blank characters 

BYT 

Value of byte where record is stored on disk, used 
with SEC 

BYT$ 

String variable of BYT, STR$(BYT) 

DASHS 

String of dashes 

DATS 

“D:TELEPHON.DAT”, data file 

EXCHS 

Telephone exchange 

FIELDS 

String containing information to print data 
entry screen. 

FIRSTS 

First name 

FLAG 

= 0: append new record to end of file 
= 1: file TELEPHON.DAT doesn’t exist. 

= 2: replace deleted record with new record. 

FX 

= 0: field has variable length 
= 1: field has fixed length 


K$ 

KEY$ 

KTEMPS 

L() 

LASTS 

LINE 

LINEY 

MIS 

ME$ 

MLS 

PNUMS 

R(> 

REC 

RECS 

S$ 

SEC 

SECS 

SELS 

ST 

TEMPS 

X$ 

Y 


”D:KEYS”, index file 
key or index 
temporary string 
array for length of each field 
Last name 

Statement number for continuation after error 

Statement number for continuation after error 

Message string 

Message string 

Machine language string 

Phone number 

Row where field appears on data entry sccreen 
Number of records (actually twice the number) 
String containing a single record 
String containing keys and pointers to sector and 
byte. 

Sector where record is stored on disk. 

String containing value of SEC, STR$(SEC) 
Contains information to print option menu on 
screen 

Variable used in input and output of S$ 

Temporary string 

used for input of data 

Variable used in input and output of S$ 


OUTLINE OF PROGRAM 

Initialization 
Options Menu 
ADD option 
CHANGE option 
DELETE option 
INQUIRY/PRINT option 
END option 

SCAN RECORDS option 
Subroutine to read indices from disk 
Subroutine to write indices to disk 
General data entry subroutine 
Subroutine to write data to disk, if they are correct 
Subroutine to make hard copy of data on printer 
Subroutine to fill data field with trailing blanks 
Subroutine to print message on screen 
String search subroutine to locate key and print 
data on screen 
Error trapping routine 

String-search machine language subroutine 

— Gary Wick 

Inside the Atari 810 

Part 1. The Atari 810 Disk Drive 

The Atari 810 drive was an excellent product for the young Atari 
company back in the early 80’s. It quickly became popular until late 
1983. The Atari 810 is basicly a Tandon single-sided, single-density 
raw drive with custom Atari hardware. 

The hardware in the 810 is built around the 6507. Yes, a stripped 
down version of the 6502 microprocessor. The electronics include a 
1771 controlled chip, 128 byte Ram chip; a 2316 2k Rom chip. This 
chip and the Ram chip are replaced when you have HAPPY DRIVES. 
There is also a 2332 Ram chip. This chip does a job similar to the PIA 
chip in the Atari Computer, and adds another 128 bytes of memory to 
the drive. 

The Atari 810 is accessed from the computer serially at 19,200 
baud. This simply means the 810 is about 20 times slower than the Ap¬ 
ple drives. The major difference between the Atari and Apple drives is 
the Atari and 810 communicate by high level commands and pass 
data back and forth. The Apple 6502 controls the Apple drive, 
therefore through software, the Apple drives can be totally controlled. 


10-240 

1000-1050 

2000-2130 

3000-3120 

4000-4100 

5000-5050 

6000-6010 

6500-6610 

7000-7050 

7100-7150 

7500-7580 

8000-8100 

8200-8260 

8300-8320 

8500-8520 

9000-9100 

10000-10030 

12000-12550 


On the Atari, there are a total of 5 commands by which the com¬ 
puter and drive gommunicate. These commands are: 


1. Get Sector number. The computer sends this command to the 
drive along with a sector number from $1-$2D0 and for Happy Drives 
$800-$13FF. The Drive returns 128 bytes of data. 


2. Put Sector number. The computer sends this command to the 
drive along with a sector number and 128 bytes of data. The sector 
number is between $1-$2D0 and for Happy Drives $800-$13FF. The 
drive writes 128 bytes of data. 


3. Put Sector number with Verify. The computer sends this com¬ 
mand along with the sector number and 128 bytes of data. The drive 
writes the data to the appropriate sector, reads the sector, and sends 
the data back to the computer. The computer checks both sets of data 
to make sure that they are the same. 


4. Format disk. Upon recieving this command, the drive formats the 
disk in a 40 track, 18 sector per track, 128 byte per sector format. 

5. Drive Status. Upon recieving this command, the drive sends it’s 
status to the computer. 

More Soon .... 
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— Shane Rolin 




10 REM KKMMKMMMMKMXMMMMMMMMKKKMl 
28 REM *# ftft 
22 REM #* INDEXSETUP ft* 
24 REM ** ** 
26 REM ** by *ft 
28 REM ** GERRY HICK ft* 
30 REM ## ftft 
32 REM ** ACE newsletter Mar. 85 ** 
34 REN ** 3662 Vine Maple Dr. #* 
36 REM ** Eugene, Or. 87485 ftft 
38 REM ** $14 year ** 
48 REM KMKMKKKKK i nCKItKKKKI l KItKMKKKKKKM 
42 REM 

50 GQSII8 12080 


100 DIM REC$(34),KEY$(61,5$(68801 , 5EC$ 
(33, BYT$ (3), K$ (33 

1808 ? "GINSERT TELEPHON.DAT DISK AMD" 
:? :? "PRESS HHEM READY" 

1818 TRAP 1808:INPUT X$ 

1828 CLOSE 111: OPEN 81,12,8,"D: TELEPHON 
.DAT":TRAP 2880 

1838 MOTE Ml,SEC,BYT:INPUT Mi,REC$ 

1048 K-8 

1858 5EC$=5TR$CSEC3;BYT$=5TR$CBYT3 

I860 IF LENCSEC$3<3 THEM X$=SEC$:5EC$C 

2)=X$:5EC$(1,1)="8":GOTO I860 

1078 IF LEMCBYT$3<3 THEM X$=BYT$:BYT$C 

23=X$:BYT$(i,i3="8":G0TO 1878 

1088 KEY$Cl,3)=REC$ Cl, 33 :KEY$ C4,63 =REC 

$(13,153 

1080 REC=LEMC5$3/6:IF REC=8 THEM 1288 
1108 A=USR CADR CML$3,REC,ADR CS$3,ADR CKE 
Y$33 

1110 IF A=0 THEM 1280 
1128 K=K+i:KEY$C6,6)=STR$CK3:GOTO 1188 
1280 5$ CLEM (S$3+1)=KEY$:5$ CLEM CS$3 +1) = 
SEC$:S$ CLEM CS$3 +1)=BYT$ 

1218 GOTO 1830 
2080 GOSUB 7188 
2180 END 

7188 REM HRITE INDEX TO DISK 
7118 CLOSE Ml:OPEM M1,8,0,"D:KEY5" 

7128 Y=LENCS$3:J=INTCY/1253:? 81 ;Y 
7125 IF Y<125 THEM 7148 
7138 FOR 1=8 TO J-I;5T=I*125+I:? Ml;5$ 
C5T,5T*1243;NEXT I 

7148 IF Y/125<)IMT(Y/1253 THEM ? M1;S$ 
CJ*125+i,Y3 

7150 CLOSE 81:REC=LEN(S$3/6:RETURN 
12808 RESTORE 12588:DIM ML$C683 
12818 FOR ML=i TO 68:READ A:&$(ML,*8.3 
=CHR$CA3:SOUND 0,ML,18,8:NEXT W.;50UND 
8,0,0,0 
12020 RETURN 


12588 DATA 104,104,133,213,184,133,212 
,184,133,206 

12518 DATA 104,133,285,184,133,284,184 
,133,283,168 

12520 DATA 0,177,283,288,285,208,6,200 
,182,6 

12538 DATA 288,245,86,165,285,24,105,6 
,133,205 

12548 DATA 144,2,238,206,165,212,288,6 
,165,213 

12558 DATA 248,7,188,213,188,212,24,14 
4,216,86 


10 REM Jb ckmmmmkkmkkmmmmmmkkmmmmmmkm 
28 REM ** IMDXFILE BY ** 

22 REM *# «* 

24 REM GERRY HICK ** 

26 REM *ft ft* 

28 REM ## ACE Newsletter war. 85 *# 

30 REM ** 3662 Vinemaple Dr. ** 

32 REM *# Eugene. Or. 87485 ** 

34 REM ** $14 year ft* 

36 REM J H C ftft KMKKMK ft lCKKKKItltftMItMKMXKMK 
40 REM 

58 GOSUB 12080 

80 REM SETUP FOR 588 RECORDS 


108 DIM BLK$ (123,REC$ (343,TEMP$ (343,LA 
ST $ (123,FIRST$(123,AREA$ (33,EXCH$ (33,P 
MUN$ C4),KEY$(63,5$ C68083,DA5H$ C123 
118 DIM FIELD$ C883,5EL$ (993,Ml$ (253,X$ 
C123 , K$ C63 , DAT$ (143 , R (63 , L (63 , ME$ C653 , 
KTEMP$(1253,SEC$ C33,BYT$C33 
128 K$="D:KEYS":DAT$="D:TELEPHON.DAT": 
FLAG=8 

158 BLK$C13=" ":BLK$C123=" ":BLK$C23=B 
LK$ 

168 DASH$ C13="-":DA5H$C123 ="-»:DASH$ C2 
3=DA5H$ 

178 RC83=5:FOR 1=1 TO 5:R(I3=6+I:NEXT 
I 

188 L C83 =6: L C13 =12: L C23 =12: L C33 =3: L C43 
=3:LC53=4 

188 SEL$="1.ADD 2.CHANGE 3.DELET 
E4fl4.INQUIRY/PRINT 5.SCAM REC0RDS4Q 
6.RETURN TO BASIC" 

288 FIELD$="^K4fKEY44fll.LAST NAME4j32. 
FIRST NAME®.AREA CODE®.EXCHANGE® 
.PHONE NUMBER" 

218 Ml$=«« g!Hiiai»ril*lil?l » 

228 REC=1 

238 TRAP 10888;? "*5":LINE=120:LIMEY=28 
08:PE$="THERE ARE NO RECORDS ON THIS D 
I5K4 CONTINUE C0Ej3" 


248 GOSUB 7800:TRAP 48088 
1880 REM KICTi 

1818 ? "6":POSITION 15,2:? "SH]";? * ? 
:? FIELD$ 

1828 POSITION 13,15;? " HBSHTOB ":? ;? 5 
EL$:? 

1825 POSITION 2,21:? M1$;BLK$U,23 

If i 
I 

1838 INPUT X$:IF A5CCX$3<48 OR A5CCX$3 
>54 THEN 1825 

1858 ON UALCX$3 GOSUB 2808,3088,4888,5 

000,6588,6000 

2888 REM (333 

2818 TRAP 48080;? "6":POSITION 15,1:? 
"SEE":? :? " ENTER DATA OR 'END 1 "; 
? :? FIELD$ 

2838 R=RC83:L=LC03:FX=l:A=i:GOSUB 7588 
:KEY$=X$:LINE=2088 

2848 IF FLAGOi THEN A=USR(ADR CML$3 , RE 
C,ADRC5$3,ADRCK£Y$33:IF A<>8 THEN ME$= 
"DUPLICATE ID":GOSUB 8588:GOTO 2888 
2858 IF FLAGOi THEN KTEMP$=» »;A 

-USRCADR CML$3,REC,ADR C5$3,ADR CKTEMP$3 3 
:IF A=8 THEN FLAG=8:G0TG 2857 
2855 IF FLAGOi AND AO0 THEN A=6*(REC 
-A3 +1; 5EC=VAL CS$ CA+6, A+83 ) : BYT=VAL (5$ C 
A+9,A+1133:FLAG=2:G0T0 2860 
2857 A=6*CREC-A3+1 

2868 R=RC13:L=LC13:FX=8:GOSUB 7588:605 
UB 8308:LA5T$=X$;REC$=LA5T$ 

2078 R=R(23:L=L(23:FX=8:GOSUB 7588:605 
UB 8380:FIR5T$=X$:REC$(133=X$ 

2880 R=RC33;L=L(33:FX=l:GOSUB 7588:ARE 
A$=X$;REC$(253 =X$ 

2850 R=R C43:L=L C43:FX=i:GOSUB 7508:EXC 
H$=X$:REC$(283 =X$ 

2188 R=RC53:L=LC53:FX=i:GOSUB 7588:PNU 
M$=X$:REC$(313 =X$ 

2118 GOSUB 8088:REM ARE THE DATA CORRE 
CT? 

2128 GOSUB 8288:REM HARD COPY? 

2138 GOTO 2800 
3080 REM glEMflal 

3810 ? "*5":POSITION 14,1:? ‘OTCHf*':? 
:? " ENTER DATA OR 'END 1 ":? :? FIE 
LD$ 

3828 R=R C83:L=L C83:FX=1:FLAG=2:GOSUB 7 
588:KEY$=X$:LINE=3000:GOSUB 5088:REM 5 
TRING SEARCH AND PRINT DATA 
3830 POSITION 2,15:? "CQENTER FIELD NU 
MBER TO CHANGE":? "CENTER HIIIM?! TO EN 
D3»;:INPUT X$ 

3835 IF X$="» THEN GOTO 3188 

3848 IF A5C(X$3<49 OR A5CCX$3>53 THEN 


5 



indt?x cont 

368 

3856 IF VAL(X$)=i THEM R=RCl)sL=LCl)5F•j 70 
X=8:G0SUB 7580:REC$Cl,12)=X$:60T0 3038jjg* 
3868 IF VAL(X$)=2 THEM R=R(2):L=LC23:F 39e 
X=6:GOSUB 7500:REC$(13,24)=X$:GOTO 383 480 

8 418 
3878 IF VAL(X$)=3 THEM R=R(3):L=L(3):F 420 
X=l:GOSUB 7588:REC$C25,27)=X$:GOTO 303 4J0 


8 

3880 IF VAL(X$)-4 THEM R=RU) :L=L(4) :F 
X=l:GOSUB 7588: REC$ (28, 38) =X$: GOTO 303 
8 

3098 IF VAL(X$)=5 THEM R=R(5):L=L(5);F 
X-i:605UB 7580;REC$(31,34)=X$:GOTO 303 
0 

3180 GOSUB 8088:REH ARE BATA CORRECT? 
3118 GOSUB 8280:REM HARD COPY? 

3128 GOTO 3006 
4808 REH iqgyiial 

4810 ? »*":POSITION 14,1:? " fiHNiiid ": ? 
:? " EMTER BATA OR *ENB*":? :? FIE 
LBS 

4028 R-RC8);L-LC8);FX-i;r LhG-z;GOSUB 7 
588:KEY$=X$:LINE=480O:GOSUB 9088:R 

SIFlIRG ITlAGIC bn 
Charlie Parl<er 

18 REH EXAMPLE #3 - STRING HAGIC FOR 
PAGE FLIPPING. CHARLIE PARKER, STAR- 
FLEET, 7685 5. BATURA, LITTLETON, CO 
58 BIH BM$(1):REM CREATE STRING FOR 
BISPLAY MEMORY 

78 BIH SM1$ (488),5H2$(480),SM3$(480):R 
EH CREATE 5TRIM65 TO SAVE BISPLAY HEH. 
98 GRAPHICS 23:REM USE GR.7 WITH NO HI 
MBOH 

100 SETCOLOR 4,18,5 

118 SETCOLOR 0,0,8 

128 POKE 559,8:REH TURN OFF SCREEN 

138 REH SET UP PARH5 FOR STRING MAGIC 

148 REH SET ABBR TO BISPLAY MEMORY 

158 ABBR=PEEKC88)+PEEK(89)*256 

168 SIZE=3848:REM GR.23 SCREEN SIZE 

178 VNUM=8:R£M USE 1ST VAR. (BH$) 

180 REH CALL THE STRING HAGIC ROUTINE 
198 G05UB 816 
288 P—8 

218 REH BRAH FIRST VERSION OF BAT 
220 COLOR 1 
230 PLOT P+5,1 

248 BRAHTO P+19,4:BRAHT0 P+34,1 
256 GOSUB 660 

268 IF P<120 THEN P=P+48:G0T0 238 
278 REH SAVE BISPLAY MEMORY IN 5Ki$ 

288 5M1$=BM$ 

298 REH CLEAR BISPLAY MEMORY 
388 BM$(2)=BM$(1) 

310 REH BRAH SECONB VERSION OF BAT 
320 P—0 

338 PLOT P+5,4 
340 BRAHTO P+34,4 
358 GOSUB 660 


IF P<128 THEN P=P+40:GOTO 338 
REH SAVE BISPLAY MEMORY IN SM2$ 
5H2$=BH$ 

REH CLEAR BISPLAY MEMORY 
BM$(2)=BM$(1) 

REH BRAH THIRB VERSION OF BAT 
P—0 

PLOT P+5,7 
448 BRAHTO P+19,4I0RAHTO P+34,7 
458 GOSUB 668 

468 IF P<126 THEN P=P+40:G0TO 438 
478 REH SAVE BISPLAY MEMORY IN SH3$ 

480 5H3$=BH$ 

498 C=8 

580 POKE 559,34:REH TURN ON SCREEN 
518 REH FLIP THRU THE BIFF VERSIONS 
528 BH$ Cl,488)=5M1$ 

538 BM$(481,960)=5H2$ 

548 GOSUB 750 
550 BH$ Cl,480) =SM2$ 

568 BH$ C481,960)=SM3$ 

578 GOSUB 750 
580 BM$(1,486)=SM3$ 

598 BH$ C481,968)=SM2$ 

680 GOSUB 758 
618 BH$C1,480)=SH2$ 

628 BH$(48I,960)=5HI$ 

630 GOSUB 758 

631 IF PEEKC764)0255 THEN POKE 764,25 
5: RUN "B: MENU" 

648 GOTO 520 

656 REM COMMON ROUTINE TO BRAH HEAB 
668 PLOT P+17,3:BRAHTO P+21,3 
678 PLOT P+17,5:0RAHTO P+21,5 
688 PLOT P+17,2:0RAHT0 P+21,2 
698 PLOT P+18,6:BRAHTO P+28,6 
788 PLOT P+17,1:BRAHT0 P+21,1 
716 COLOR 3:PL0T P+18,4:PL0T P+28,4 
728 COLOR 1 
738 RETURN 

748 REM BUPLICATE TOP PART OF SCREEN 
758 BM$(961,1920)=BH$ Cl,960) 

768 BM$(1921)=BH$(1,1919) 

778 REM CHANGE COLOR OF EYES 

788 C=C+2:IF 0255 THEN Crl2 

798 POKE 716,C:RETURN 

888 REN STRING MAGIC ROUTINE 

818 A=(ABBR-(PEEK(148)+PEEK(141)«256)) 

:AH=INT(A/256):AL=A-(AH*256):VVT=PEEK( 

134)+PEEK(135)*256:Q=VVT+VNUH*8+2 

820 IF A<0 THEN A=PEEK(148)+PEEK(141)« 

256:GRAPHICS 8:? “CANNOT GO BELOH ABBR 

ESS »•;A:STOP 

838 IF PEEK(0-2)<128 THEN GRAPHICS 8:? 
“VARIABLE IP 1 ;VNUM; M NOT A 5TRING":5T 
OP 

848 POKE 0,AL:POKE Q+l,AH:AH=ING(SIZE/ 
256):AL=SIZE-(AH*256):POKE Q+2,AL:P0KE 
0+3, AH’.POKE 0+4, AL: POKE Q+5, AH: RETURN 


RAMTALKER 


18 REM RAMTALKER Version 3.0 11/84 A.R 
. Holmes — reprinted from the 1/85 5 
tatus Newsletter, Norfolk, VA 
28 GRAPHICS 8:P0KE 752,1:? :? :? ;? »i 
nitializing,..please wait" 

38 FOR 1=8 TO 243:REAB Z:POKE 1536+1,Z 
:NEXT I 
48 GOTO 58 

50 BIM Z(255),FN$(13) :OPEN #l,4,8,»K: ,f 
68 GRAPHICS 2:SETCOLOR 2,0,8:TRAP 66 
78 ? 36;" RAMTALKER 1 *:? 36 
88 ? 36;" 1 record ":? 36;" 2 playback 
":? 36;" 3 throughput" 

98 ? 36;" 4 save":? 36;" 5 load" 

108 ? 36;" 6 waveform graph" 

118 TRAP 110:GET 31,ANS:IF AN5>54 OR A 

NS<49 THEN 110 

128 IF ANS>51 THEN 148 

138 TRAP 68:POKE 752,1:? "Hhat Sample 

Speed";sINPUT SS:IF SS>255 THEN 138 

148 ON VAL(CHR$(ANS)) GOTO 168,288,248 

,278,330,648 

158 REN TALK 

168 POKE 208,1:POKE 285,8:P0KE 286,64: 
POKE 287,55:POKE 209,128^ 

178 A=USR(1536) ’.POKE 562,3:P0KE 53775, 
3 

188 GOTO 68 
198 REM PLAYBACK 

288 POKE 207,55:POKE 203,8.’POKE 284,64 

I POKE 288,8:POKE 206,128 

218 A=U5R(1536):POKE 562,3:P0KE 53775, 

3 

220 GOTO 60 

238 REM THROUGHPUT 

248 POKE 288,2:POKE 285,8:P0KE 206,64: 

POKE 207,SS:POKE 289,128 

258 A=USR(1536):GOTO 248 

268 REM SAVE SOUNB FILE 

278 TRAP 278:POKE 752,1:? "Give file n 

ame";:INPUT FN$:IF FN$="" THEN 66 

288 10=4:OPEN 34,8,8,FN$ 

298 ABBRESS=16384:NUMBER=16383:PR0C=11 
388 GOSUB 510 
318 GOTO 68 

320 REM LOAB SOUNB FILE 
338 TRAP 338:POKE 752,1:? "Give file n 
ame"; .’INPUT FN$:IF FN$="" THEN 60 
348 10=4:OPEN 34,4,0,FN$ 

358 ABBRESS=16384:NUMB£R=16383:PR0C=7 
368 GOSUB 518 
370 GOTO 60 

388 BATA 184,169,8,141,31,288,173,31,2 
88,41,1,288,249,160,255,162,255,32,149 

X 
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RAMT. 

398 DATA 136,208,248,165,8,141,31,288, 
166,208,224,8,288,3,76,181,6,169,0,141 
488 DATA 0,212,141,14,212,141,18,212,1 

41.18.212.166.287.32.145.6.173.4.210.1 
62 

418 DATA 15,142,15,218,162,23,142,10,2 
12,142,15,210,142,11,218,174,243,6,224 
/8 

428 DATA 288,22,41,248,141,242,6,186,1 
86,186,106,41,15,5,16,141,1,218,238,24 
3 

430 DATA 6,76,45,6,106,106,186,186,41, 
15,9,16,141,1,218,41,15,13,242,6 
448 DATA 206,243,6,168,8,145,285,173,3 
1,208,41,1,240,15,238,285,288,163,230, 
286 

450 DATA 166,206,228,285,288,155,76,15 

3.6.282.288.253.56.165.208.201.2.288.1 
1,169 

468 DATA 0,133,285,165,64,133,286,76,3 
7,6,169,64,141,14,212,169,34,141,8,212 
478 DATA 96,169,0,141,14,212,141,8,212 
,166,207,32,145,6,168,0,177,283,170,18 
6 

488 DATA 186,186,186,41,15,9,16,141,1, 
218,138,41,15,9,16,24,24,24,24,166 
458 DATA 207,32,149,6,141,1,218,230,20 
3,208,286,238,204,166,204,228,206,288, 
286,76 

588 DATA 153,6,8,8 
518 REN CIO READ/HRITE 
528 10=16*10 

530 I0CB=832+I0iPOKE I0CB+2,PR0C 
548 ADRHI=INT (ADDRESS/256) 

558 ADRL0=ADDRES5-ADRHI*256 

568 POKE IOCB+4,ADRLO:POKE I0CB+5,ADRH 

I 

578 NUNHI=INT(NUNBER/256) 

588 NUNL0=NUHBER-256*NUHHI 

598 POKE IOCB+8,NUNL0:POKE I0CB+9,NUf« 

I 

600 I=il5R (ADR (“hht&LVS 11 } , 103 
60S REN Line 608 has inverse after 
the 3 lower case “h"; and inverse M d" 
after the upper case “U" 

618 CLOSE 8I0/16 
628 RETURN 

630 REN PLOT HAUEFORN 
648 GRAPHICS 8:5ETC0L0R 2,8,8:C0L0R 1: 
POKE 752,1:? "^During plot, press any 
key to return to main Menu" 

658 FOR 1=1 TO 488:NEXT I 
668 GRAPHICS 8+16:SETC0L0R 2,0,8:COLOR 
1:A=0: B=0 :C=8: D=0 :H=8 


4LKZR 


678 FOR 1=1 TO 4895:POKE 764,255 
688 A=PEEK(1+163843 
698 B=PEEK(1+28480) 

788 C=PEEK(1+245753 
718 D=PEEK(1+28678) 

720 K=H+8.07773:PLOT H,(A/4)-15 

748 PLOT H,(B/43+30 

758 PLOT H,(C/4)+75 

768 PLOT H,(D/4)+120 

770 IF PEEK(764)=255 THEN NEXT I 

788 IF PEEK(764)=255 THEN 788 

798 GOTO 68 


a************************* 

New Disks 

Ready in the next few weeks: 
ACE Business Disk #1 


This disk will consist of 
LABLES and, when ready, LIST 
PRINTING by Stan Ockers, CASH 
FLOW and INDEXED FILES by 
Gerry Wick, and DIF CONVERSION 
by David Fuller. Side 2 will 
have HOME FINANCIAL DATABASE a 
shareware disk by Richard 
Kalagher. 

ACE Telecommunication Disk 


We now have programs to 
allow the Atari 1030 Modem to 
have upload/download and other 
intelligent functions, the 
legendary R.BIN file (see ACE 
NOV ’84 article by Tom 
Neitzel) that allows you to 
run most modem programs with 
the Atari 835/1030 Modems, and 
the fabled KERMIT, written in 
ACTION!, de-bugged by 
MicroBits, in source and in 
run-time versions for the 
MicroBits Modems, and maybe 
other modems as well. 

Menus 


A collection of Menu 
programs from various sources 
collected by one of our 
members. 

All of the above should be 
available soon, at the usual 
price of $10 each or $15 
double-sided. 


snakes cont 


5488 IF MAN=65 THEN HAN=85:CHECK=i:60T 
0 5708 

5490 IF NAN=79 THEN NAN=180:CHECK=i:GO 
TO 5708 

5588 IF NAN=108 THEN 8880 

5558 GOTO 2500 

5688 REN SNAKE SOUND 

5610 RESTORE 5680 

5628 FOR 1=1 TO 16:READ TONE 

5630 SOUND 0,TONE,1O,8:FOR ZZ=1 TO 1:N 

EXT ZZ 

5640 NEXT I 

5658 SOUND 0,0,0,0:FQR ZZ=i TO 18:NEXT 
ZZ 

5668 SOUND 8,243,12,15:F0R ZZ=i TO 5:N 
EXT ZZ 

5678 SOUND 0,8,8,0 

5688 DATA 48,45,58,57,64,72,81,91,182, 

114,128,144,162,182,204,238 

5690 GOTO 4408 

5788 REN LADDER SOUND 

5718 FOR 1=1 TO 18 

5728 SOUND 8,29,8,15 

5738 FOR ZZ=i TO i:KEXT ZZ 

5748 SOUND 0,0,0,0 

5750 FOR ZZ=1 TO 3:NEXT ZZ 

5760 NEXT I 

5778 GOTO 4488 

7080 REN THE CONPUTER HAS HON 
7018 FOR 1=1 TO 15 

7020 SOUND 0,91,18,18:FOR ZZ=1 TO 18:N 
EXT ZZ 

7838 SOUND 0,8,8,8 
7848 NEXT I 

7858 FOR 1=15 TO 8 STEP ~i 

7860 SOUND 8,91,18,I:F0R ZZ=1 TO 18:NE 

XT ZZ 

7070 NEXT I 

7999 GOTO 9999 

0000 REN THE NAN HAS HON 

8010 FOR 1=1 TO 15 

8828 SOUND 0,71,10,18:FOR ZZ=1 TO 10:N 
EXT ZZ 

8038 SOUND 0,8,0,0 
8048 NEXT I 

8858 FOR 1=15 TO 0 STEP -1 

8860 SOUND 0,71,18,I:F0R ZZ=1 TO 10:NE 

XT ZZ 

8870 NEXT I 
8999 GOTO 9999 

9999 FOR ZZ=1 TO 1880:NEXT ZZ:G0T0 2 
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10 

REM *##* 

^mmkkkmkk^kmmkkmkkkk; 


12 

REM *** 

LABELS 

**K 

14 

REM *** 

5. 0. FEB. 85 


16 

REM *** 

ACE NEWSLETTER 

**# 

18 

REM *#* 

3662 Vine Maple Dr. 

*** 

28 

REM *** 

Eugene, OR 97485 

**jt 

22 

24 

REM ### 

REM #**» 

Mar. 85 $14 year 
HiMKKMXKMKKKMKKIIMKKIC] 

mm* 


26 REN 

29 ren *#* main LOOP *** 

38 60SUB 5808:605118 998:60SUB 1118:605 
UB 888:605UB 868:REN ### INITIALIZATIO 
n **# 

32 605UB 500: REN «#* CLEAR R£C$ #*# 

34 5AVC=PE£K(559):P0KE 559,8:PRINT CHR 
$(125):REN **# CLEAR SCREEN *## 

36 60SUB 210:6O5UB 368:P0KE 559,5AVC:P 
QKE 752,1:REN *** REC$ ON 5CREEN ### 

38 605UB 538:REN «** NENU AND CHOICE * 
#* 


48 ON CHOICE 605UB 308,508,60,70,82,48 
0 

42 60T0 34 

0 ? CHR$(125):605HB 60O:6O5UB 788:605 
UB 748: IF C=8 THEN P05ITI0N 5,18:? ‘HI 
m«iW:605UB 580:605118 518: RETURN 
62 S=715-C:6Q5UB 858:RETURN 
78 position 3,i8 :? 

:6ET MI,A:IF A<)A5C(" 
Y") AND A<)A5C("y") THEN RETURN 
/2 605UB 788:605UB 748:IF C<>8 THEN 60 
SUB 79:6ET M1,A:IF A<)A5C("Y") AND A<> 
A5C("y") THEN RETURN 

73 IF C<>8 THEN 76 

74 605UB 728:5=FSEC:IF F5EC<33 THEN PO 

■■■■I ":60SUB 518: RETURN 

76 605UB 888:60508 758:INDEX$(IDX,IDX+ 
5)=C0DE$:5=IDR:TENP$-REC$ 

78 REC$=INDEX$(128*(IDR-i)U,I28*IDR): 
605UB 758;R£C$=TEMP$:RETURN 

79 POSITION 3,18:? ffH W S M 

Wftl filtoWgflnEl ":60SUB 518.‘RETURN 
82 POSITION 1,18:? 

:6ET m,A:lF A<>A 

SC(»Y») AND A<)A5C("y») THEN RETURN 
84 60SUB 708:6OSUB 748:IF C=8 THEN POS 

HHHHH" • 60SUB 518: RETURN 

86 60SUB 800:INDEX$(IDK,IDX+5)=FREX$:S 

=IDR 


88 REC$=INDEX$(128*(IDR-1)+1,128*IDR): 
60SUB 758:60SUB 580:RETURN 
99 REM * INPUT A STRIN6 TEHP$ * 


LABELS 


180 L=8:TEW»$=”»:P0KE 764,255:USEFL6=8 
118 IF FLIP=8 THEN FLIP=1:P0KE 752,8:6 
0T0 138 

128 IF FLIP=I THEN FLIP=8:P0KE 752,1 
138 IF PEEK(764)=255 THEN ? CHR$(31);C 
HRS (38);:GOTO 118 

148 6ET m,C:IF C=155 OR C=38 THEN RET 
URN 

158 U5EFL6=i:IF C=126 THEN 188 

168 IF L=LFLD THEN 118 

164 IF L=8 THEN PRINT BLK$(1,LFLD):REC 

$(P05FLD,POSFLD+LFLD-i)=BLK$:POSITION 

XFLD,YFLD 

178 L=L+I:? CHR$(C);:TEHP$(L,L)=CHR$(C 
):60T0 118 

188 IF L>8 THEN L=L~i:? CHR$(C);:IF L= 
8 THEN T£MP$=»" 

198 IF L>0 THEN TEHP$=TEMP$(i,L) 

288 60T0 118 


289 REM # PUT FIELD INPUTS ON SCREEN * 
218 RESTORE FLDLINE:READ NBRFLD:FOR J= 
1 TO NBRFLDiREAD P05FLD,LFLD,XFLD,YFLD 
,NAFLD$ 

228 POSITION XFLD,YFLD+1:FOR K=1 TO LF 
LD:? :NEXT K:LNAM=LEN(NAFLD$) 

238 POSITION XFLD+(LFLD-LNAM)/2,YFLD+1 
:? NAFLD$;:NEXT J:RETURN 
248 DATA 9 

242 DATA 1 ,12,8.4, f¥fj«H?M!id 
244 DATA 13,15,21,4,[£aKmi 
246 DATA 28,24,8,6,I3nEEES 
248 DATA 52,24,8,8,1 


STREET ADDRESS 


258 DATA 76.16.18.18. gfH 
252 DATA 92,2,30,18,300 
254 DATA 94,5,27,12,933^01 
256 DATA 99,12,14,14,33331 
258 DATA 111,17,8,16,®H32 
299 REM * FILL REC$ FROM SCREEN INPUT 
* 


380 RESTORE FLDLINE:R£AD NBFLD:J=1 
318 RESTORE FLDLINE*2*J:READ P05FLD,LF 
LD,XFLD,YFLD,NAFLD$ 

320 POSITION XFLD,YFLD:60SUB 188:IF US 

EFL6=i THEN 60SUB 350 

322 IF C=30 AND J>1 THEN J=J-i:6QT0 31 


338 J=J+i;IF J>NBRFLD THEN RETURN 
348 60T0 318 

358 REC$(P05FLD,PQ5FLD+LEN(TEMP$))=TEM 
P$:RETURN 

359 REM #** PUT REC$ ON SCREEN #** 

368 RESTORE FLDLINE:READ NBFLD:FOR J=1 

TO NBFLD:READ P05FLD,LFLD,XFLD,YFLD,N 
AFLD$ 


378 POSITION XFLD,YFLD:? REC$(POSFLD,P 
05FLD+LFLD-1):NEXT J:RETURN 
399 REM * PRINT LABEL ACC0RDIN6 TO DAT 
A STATEMENTS * 

488 ? CHR$(125):RESTORE PRTLINE:J=1:K= 
-1:HOLD=0:5KIP=i 

402 READ BLNKS,FLDNO:PRT$(J,J)=CHR$(BL 
NK5) :PRT$(J+1, J+1)=CHR$(FLDNO) :IF FLDN 
0=255 THEN 486 
484 J=J+2:60T0 482 
486 ? N2; H 

418 K=K+2:BLNKS=ASC(PRT$(K)):FLDNO=ASC 
(PRT$(K+1)) 

412 IF BLNKS=255 AND H0LD=8 THEN ? M2; 
"":? #2;" :60T0 418 

414 IF BLNKS=255 AND H0LD=1 THEN SKIP= 
SKIP+1J60T0 418 

428 IF FLDN0=255 THEN ? M2; ,HI :F0R J=1 
TO SKIP:? M2; M,, :N£XT J;RETURN 
428 IF BLNKS)8 THEN FOR J=1 TO BLNKS:? 
M2; H **; :N£XT J 

438 RESTORE FLDLINE+2*FLDN0:READ P05FL 
D,LFLD 

432 L=P05FLD*LFLD“1 

434 IF REC$(L,L)= >> " AND L>P05FLD THEN 
L=L~l:6OT0 434 

436 IF L=P05FLD THEN H0LD=tt:60T0 418 
448 H0LD=8:? M2;REC$(P05FLD,L);:60T0 4 
18 

468 DATA 8,1,1,2,255,8,8,3,255,0,8,4,2 
55,8,8,5,3,6,255,8,14,7,0,255 
508 REC$=" ":REC$(128)=REC$:REC$(2)=RE 
C$:RETURN 

518 SOUND 0,188,12,8:F0R K=1 TO 158:NE 
XT K:SOUND 8,8,8,8:RETURN 
529 REM ##* MENU AND CHOICE INPUT *** 
538 POSITION 2,20:? » t.. 

ii 

i 

532 POSITION 2,21:? "| (l)EDIT (2)CLEA 
R (3)FIND (4)SAVE I" 

534 POSITION 2,22:? ”| (5)DELETE (6)PR 
T LABEL IfliCTBHd |» 

536 POSITION 2,23:? *'«- 


548 6ET Ml,CHOICE:CH0ICE=CH0ICE~48:IF 
CHOICECl OR CHOICE)6 THEN 540 
558 RETURN 

599 REN *** 6ET NAME ONLY FROM SCREEN 

688 RESTORE FLDLINE:R£AD NBRFLDiFOR J= 
1 TO 2:READ POSFLD,LFLD,XFLD,YFLD,NAFL 
D$ 

618 POSITION XFLD,YFLD+1:FOR K=1 TO LF 
LD:? ”~";:NEXT K:LNAM=LEN(NAFLD$) 
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838 ASECRM=AAR(5ECRH$) ;XAAR=AAR(X5SS): 
FOR J=i TO 32 

848 I0=USR(A5ECRH,XAA£;J,l) ;NEXT J:I0= 
U5R(A5ECRH,h'AAR,720,1):RETURN 

849 REM **# REAR SECTOR '5* INTO RECS 

858 RECS(128)=" ":AREC=AAR(REC$) :ASECR 
H=AAR(SECRHS);IQ=U5R(A5ECRH, AREC, S,8): 
RETURN 

859 REM *** READ SECTORS 1-32 INTO INA 
EK *** 

868 INAEXS=" ":INAEXS(4896}=INAEXS:IND 
EX$(2)=INAEX$ 

878 FOR S=i TO 32:60SUB 850;J=(5-l)*12 
8+1:INDEX${J, J+127)=RECS:NEXT 5;RETURN 

879 REM *** SAVE INAEXS TO SECTORS 1-3 
2 *** 

888 FOR 5=1 TO 32;J=(5-13*128+1:RECS=I 
NAEKS(J,J+127):GOSUB 750:NEXT SlRETURN 

988 REM *** TOTAL STRING SEARCH *** 

982 REM *** ANALOG #12 P. 84 *** 

984 REM *** C=USR (ADR (BS),CNT,AAR (AS), 
AAR(AT$)RL,ATL) *** 

985 REM *** CNT=R£CORA CNT *** 

986 REM *** AS=5TRING ATS=AE5IREA TERM 

987 REM *** RL=RECQRA LEN ATL=AE5 TERM 
LEN *** 

998 AIM B$(1393:RESTORE 1808:FOR J=i T 
0 139:READ A:BS(J,J)=CHR$(A3:NEXT J:RE 
TURN 

1880 DATA 216,184,104,133,204,184,133, 
283,184,133,269,184,133,288,184,133,21 
5,184,133,214 

1818 DATA 104,184,133,285,104,184,133, 
286,169,8,133,212,169,8,133,213,162,8, 
168,8 

1820 DATA 177,214,224,8,288,2,132,216, 
289,288,288,43,232,228,206,248,22,288, 
196,295 

1838 DATA 248,58,72,152,72,138,168,177 
,214,133,207,104,168,184,165,287,24,14 
4,219,72 

1048 DATA 165,284,133,213,165,283,133, 
212,184,162,0,224,8,240,17,224,0,240,6 
,168 

1058 DATA 0,177,214,162,8,164,216,280, 
196,285,288,186,165,288,24,181,285,133 
,288,144 

I860 DATA 2,238,209,165,203,208,6,165, 
204,240,7,198,284,198,203,24,144,156,9 
6,-1 


628 POSITION XFLA+(LFLA-LNAM)/2,YFLA+i 
:? NAFLA$;:NEXT J 

638 RESTORE FLALINE:GOSUB 588:READ N6F 
LA:J=1 

640 RESTORE FLALINE+2*J:READ P05FLA,LF 
LA,XFLA,YFLA,NAFLAS 

658 POSITION XFLA,YFLA:GOSUB 188:IF US 
EFLG=i THEN GOSUB 358 
668 IF C=38 ANA J>1 THEN J=J-i:GOTO 64 
0 

678 J=J+1:IF J>2 THEN RETURN 
680 GOTO 648 

699 REM *** MAKE A CODE STRING FROM NA 
MES *** 

788 COAES= ,m :RESTORE FLALINE+4:READ J: 
RESTORE FLALINE+2:REAA K:COAES=RECS(J, 
J+2);L=4 

782 IF C0AE$(3,3)=“ » THEN COAE$=COAE$ 
(1,2):L=3 

784 IF CODES(2,2)=" " THEN COAE$=COAE$ 
(1,1):L=2 

786 COAE$(L,L+l)=REC$(K,K+i):IF COAE$( 
L+1,L+1)<>" " THEN RETURN 

787 IF CODES(L+l,L+l)=" " THEN COAE$=C 
OAES(l,L) 

708 IF CODES(L,L)=“ " THEN COAES=COAE$ 
(1,L-1) 

718 RETURN 

719 REM *** FIND 1ST FREE POSITION IN 
INAEXS *** 

728 C=USR(AAR(BS),681,AAR(INAEXS),AAR( 
FREXS),6,5):FSEC=714-C;IAX=4887-C*6:ID 
R=INT(IAX/128)+1:RETURN 
739 REM *** FIND CODE STRING IN INAEXS 
RET. SECTOR *S‘ *** 

748 C=USR(AAR(BS),682,AAR(INAEXS),AAR( 
CODES),6,LEN(CODES)):S=715-C:IAX=4893- 


1188 REM * LIVE M/O AOS ANALOG #17 P 5 
4 * 

1182 REM * IO=USR(AAR(5ECRHS),AAR(BUFS 
),SECT,FLAG * 

1184 REM * FLA6=8 TO READ, 1 TO HRITE 
* 

1110 AIM SECRHS(44):RESTORE 1128:FOR J 
=1 TO 44:READ A;SECRHS(J,J)=CHRS(A);NE 
XT J:RETURN 

1128 DATA 184,184,141,5,3,184,141,4,3, 
184,141,11,3,104,141,10,3,184,184,201 
1138 DATA 1,288,7,169,87,141,2,3,288,5 
,169,82,141,2,3,169,1,141,1,3,32,83,22 
8,96 

5880 AIM TEMPS(128),NAFLAS(28),RECS(12 
8),BLKS(58),X5SS(128):LFLA=18:? CHRS(1 
25) 

5818 X55$="X"5 X55S(128)=X55S:XS5S(2)=X 
5SS:FLALINE=248:PRTLINE=468:AIM PRTS(5 
8),INAEXS(4896) 

5028 AIM FREXS(6):FREXS="XXXXXX":AIM C 
ODES(6):OPEN #1,4,0,"K:";OPEN #2,8,8," 

P:» 

5838 BLKS=" ";BLKS (58)=BLKS:BLKS(2)=BL 
KS:A=PEEK(16):IF A>128 THEN A=A-128:P0 ^ 

KE 16,A:POKE 53774,A:RETURN 


I 'i I 1 1 II 


C*6:IAR=INT(IAX/128)+1:RETURN 
749 REM *** SAVE RECS TO SECTOR 5 *** 
758 IO=USR(AAR(SECRHS),AAR(RECS),5,1): 
RETURN 

799 REM *** HARNING *** 

888 TEMPS=RECS:5AV5=S:5=728:GOSUB 850: 


[SOUTH ; ll< 


IF RECS (1,10)=X5SS(1,10) THEN RECS=TEM 
PS:5=SAVS:RETURN 

882 RECS=TEMP$:S=5AV5:POSITION 3,10:? 


{HARMING!!- BE SURE DATA DISK ISINi 


05ITI0N 18,12 

818 ? "THEN PRESS ANY KEY":POKE 764,25 
5 

828 IF PEEK(764)=255 THEN 820 
822 RETURN 

829 REM *** REM FILL DISK SECTORS 1-32 
& 728 MITH X'S *** 
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8 GRAPHICS 7+16:COLOR 3 

1 AIM HAN(8,8):DIH ATARI(8,8}:DIH HANS 
POT(8,8):DIH ATSP0T(8,8) 

2 FOR 1=0 TO 7:FOR J=8 TO 7 

3 HAN(I,J)=0:ATARI(I,J)=0:HANSPOT(I,J) 
=O:ATSPOT(I,J)=0 

4 NEXT J:NEXT I 

5 CHECK=0 

50 GRAPHICS 2+16 

70 POSITION 0,3:? B6;» SNAKES" 

80 POSITION 8,5:? 86;"AND" 

80 POSITION 7,7:? 86;”IADDERS" 

100 POSITION 3,1:PRINT tf6;»<L_» 

110 FOR 1=2 TO 18 STEP 2 

120 POSITION 2,1:? 86;“C":NEXT I 

130 FOR 1=3 TO 8 STEP 2 

140 POSITION 3,1:? 86;")":NEXT I 

ISO FOR 1=1 TO 10 

160 POSITION 17,1:? 86;"H":NEXT I 

170 FOR ZZ=1 TO 808:NEXT ZZ 

loo position 3,11:? 

•» 

268 FOR ZZ=1 TO 1088:NEXT ZZ 

270 REH INSTRUCTIONS FOR USE 

288 REH DO NOT FEED AFTER HIDNIGHT !?! 

288 GRAPHICS 2+16 

380 POSITION 3,0:PRINT «6;»instruction 
5 “ 

T18 ? 86;"THE IDEA OF THE GAHE IS TO G 
ET YOUR HAN TO THE LAST SQUARE QUICK 
LY" 

328 ? 86;"YOU CAN CLIFffi UP THE RED LAD 
DERS BUT LOOK OUT FOR THE GREEN 
SNAKES' HEADS ...YOU'LL FALL!" 

338 ? 86;"PRESS SELECT" 

348 POKE 53278,8 

358 IF PEEK(53278)=5 THEN 378 

360 GOTO 350 

378 GRAPHICS 2+16 

380 ? 86;" wore instructions" 

388 ? 86;"YOU WIST TAKE TURNS WITH TH 
E COHPUTER." 

488 ? 86;"SELECT THE NUHBER THROWN 
BY YOUR DICE WHEN THE BUZZER SOUND 
S AND THE RIGHT HAND SIDE OF" 

418 ? 86;" THE BOARD IS BLANK.THE COHP 
UTER HAS THE FIRST GO. PRESS 

SELECT" 

428 POKE 53278,8 

430 IF PEEK(53278)=5 THEN 458 

448 GOTO 430 

458 GRAPHICS 2+16 

468 POSITION 8,5:? 86;» PRESS 

START" 


478 POKE 53278,0 

488 IF PEEK(532781=6 THEN 568 

488 GOTO 480 

588 GRAPHICS 7+16:FOR X=35 TO 125 STEP 
8 

585 COLOR 3 

518 PLOT X,8:DRAHT0 X,88 
528 NEXT X 

538 FOR Y=8 TO 80 STEP 8 
548 PLOT 35,Y:DRAHTQ 125,Y 
558 NEXT Y 

680 REH SPACE FOR DRAWING NUHBERS 

618 COLOR 3 

628 REH DRAW ALL 1'S 

625 RESTORE 678 

638 FOR 1=1 TO 13 

648 READ X,Y:PLOT X,Y:DRAWTO X,Y+4 

658 NEXT I 

668 REH DATA FOR 1*S 

678 DATA 37,3,123,3,42,12,123,21,42,38 

,123,38,42,48,123,57,42,66,118,84,48,8 

4,121,75,118,75 

688 FOR 1=1 TO 8 

688 PLOT 1*8+37,75:DRAWTO 1*8+37,78 
70S NEXT I 

710 REH DRAW ALL THE 2'S 
715 RESTORE 768 
728 FOR 1=1 TO 11 
738 READ X,Y 

748 PLOT X,Y:DRAWTO X+2,Y:DRAWT0 X+2,Y 
+2:DRAWT0 X,Y+2:DRAWT0 X,Y+4:DRAWT0 X+ 
2, Y+4 

758 NEXT I 

768 DATA 113,3,113,21,113,38,113,57,11 
2,75,50,12,50,30,58,48,50,66,48,84,37, 
75 

778 FOR 1=8 TO 8 
788 X=I*8+37:Y=66 

788 PLOT X,Y:DRAWTO X+2,Y:DRAWT0 X+2,Y 
+2:DRAWTO X,Y+2:DRAHT0 X,Y+4:DRAWTO X+ 
2, Y+4 

880 NEXT I 

818 REH DRAW ALL THE 3*S 
812 RESTORE 835 
815 FOR 1=1 TO 11 
828 READ X,Y 

825 PLOT X,Y:DRAWTO X+2,Y:DRAWT0 X+2,Y 
+4:DRAWT0 X,Y+4:PLOT X+2,Y+2:DRAWT0 X, 
Y+2 

838 NEXT I 

835 DATA 104,3,184,21,184,38,104,57,10 
3,75,58,12,58,38,58,48,58,66,57,84,118 
,66 

848 FOR 1=8 TO 8 


845 X=(118-1*8):Y=57 

858 PLOT X,Y:DRAHTO X+2,Y:DRAWT0 X+2,Y 

+4:DRAWT0 X,Y+4;PL0T X+2,Y+2:DRAWTO X, 

Y+2 

855 NEXT I 

860 REH DRAW ALL THE 4'S 
862 RESTORE 885 
865 FOR 1=1 TO 11 
878 READ X, Y 

875 PLOT X,Y:DRAWTO X,Y+3:DRAHT0 X+2,Y 
+3:PLOT X+2,Y+2:DRAWT0 X+2,Y+4 
880 NEXT I 

885 DATA 85,3,85,21,85,38,85,57,84,75, 
68,12,68,38,68,48,68,66,66,84,37,57 
888 FOR 1=0 TO 8 
885 X=I*8+37:Y=48 

808 PLOT X,Y:DRAWTO X,Y+3:DRAWT0 X+2,Y 
+3:PLOT X+2,Y+2:DRAWT0 X+2,Y+4 
80S NEXT I 

810 REH DRAW ALL THE 5*5 
812 RESTORE 835 
815 FOR 1=1 TO 11 
820 READ X,Y 

825 PLOT X+2,Y:DRAWT0 X,Y:DRAWTO X,Y+2 
:DRAWTO X+2,Y+2:DRAWTO X+2,Y+4:DRAWTO 
X, Y+4 

830 NEXT I 

835 DATA 86,3,86,21,86,38,86,57,85,75, 

77,12,77,38,77,48,77,66,75,84,118,48 

848 FOR I=0 TO 8 

845 X=(118-1*8):Y=38 

858 PLOT X+2,Y:DRAWT0 X,Y:DRAWTO X,Y+2 

:DRAWTO X+2,Y+2:DRAWTO X+2,Y+4:DRAWTO 

X, Y+4 

855 NEXT I 

860 REH DRAW ALL THE 6'S 
862 RESTORE 885 
865 FOR 1=1 TO 11 
870 READ X,Y 

875 PLOT X+2,Y;DRAWTO X,Y:DRAWTO X,Y+4 
:DRAWTO X+2,Y+4:DRAWT0 X+2,Y+2:DRAWTO 
X, Y+2 

880 NEXT I 

885 DATA 77,3,77,21,77,38,77,57,76,75, 
86,12,86,38,86,48,86,66,84,84,37,38 
888 FOR 1=8 TO 8 
885 X=I*8+37:Y=30 

100O PLOT X+2,Y:DRAWT0 X,Y:DRAWTO X,Y+ 
4:DRAWTO X+2,Y+4:DRAWT0 X+2,Y+2:DRAWTO 
X, Y+2 

10O5 NEXT I 

1010 REH DRAW ALL THE 7'5 
1012 RESTORE 1035 
1015 FOR 1=1 TO 11 
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snakes cont 


1828 READ X,Y 

1825 PLOT X,YiDRAWTO X+2,Y:DRAWT0 X+2, 
Y+2:PLOT X+l,Y+2:DRAWTO X+i,Y+4 
1838 NEXT I 

1835 RATA 68,3,58,21,68,39,68,57,67,75 

,95,12,95,38,95,48,95,66,93,84,118,38 

1848 FOR 1=8 TO 8 

1845 X=(118-1*9):Y=2I 

1058 PLOT X,Y:DRAWTO X+2,YiDRAWTO X+2, 

Y+2SPL0T X+i,Y+2:DRAWTO X+l,Y+4 

1055 NEXT I 

I860 REH DRAW ALL THE 8*5 
1862 RESTORE 1685 
1865 FOR 1=1 TO 11 
1870 READ X,Y 

1875 PLOT X,YiDRAWTO X+2,YiDRAWTO X+2, 
Y+4-.DRAHT0 X,Y+4:DRAWTQ X,Y:PL0T X,Y+2 
:DRAWTO X+2,Y+2 
1888 NEXT I 

1885 DATA 59,3,59,21,59,39,59,57,58,75 
,104,12,104,30,184,48,184,66,102,84,37 
#21 

1098 FOR 1=8 TO 8 
1895 X=I*9+37:Y=12 

1188 PLOT X,Y:DRAMTO X+2,YiDRAWTO X+2, 
Y+4:DRAHT0 X,Y+4:DRAWTO X,Y:PLOT X,Y+2 
:DRAWTO X+2,Y+2 
1105 NEXT I 

1110 REH DRAW ALL THE 9*5 
1112 RESTORE 1135 
1115 FOR 1=1 TO 11 
1128 READ X,Y 

1125 PLOT X+2,Y+2:DRAWTO X,Y+2:DRAWT0 
X,YiDRAWTO X+2,Y:DRAWTO X+2,Y+4:DRAWT0 
X, Y+4 

1130 NEXT I 

1135 DATA 50,3,58,21,58,39,50,57,49,75 
,113,12,113,38,113,48,113,66,111,84,11 
8,12 

1148 FOR 1=8 TO 8 
1145 X=(118~I*9):Y=3 
1158 PLOT X+2,Y+2IDRAWTO X,Y+2;DRAWTO 
X,YiDRAWTO X+2,Y:DRAWTO X+2,Y+4;DRAWT0 
X, Y+4 

1155 NEXT I 

1168 REH DRAW ALL THE 0*S 
1162 RESTORE 1185 
1165 FOR 1=1 TO 11 
1178 READ X,Y 

1175 PLOT X,Y:DRAWT0 X,Y+4;DRAWTO X+2, 
Y+4:DRAWT0 X+2,Y;DRAWTO X,Y 
1188 NEXT I 

1185 DATA 39,3,41,3,41,21,41,39,41,57, 
48,75,122,12,122,38,122,48,122,66,120, 

84 

1408 REH DRAW THE SNAKES 
1418 COLOR 2 


1420 FOR J=1 TO 12 
1438 READ Xl,Yi,X2,Y2 
1448 PLOT XI,Yi 

1445 PLOT X2~1,Y2:DRAWTO X2+1,Y2 

1446 PLOT X2“i,Y2+1:DRAWTO X2+1,Y2+1 
1458 FOR 1=1 TO Y1-Y2 

1468 Y=Y1~I 

1478 X=INT C(X2-X1)*(Y1-Y)/(Y1~Y2)+X1) 

1488 IF RND(8)<0.5 THEN X=X-1 

1498 PLOT X,Y 

1580 NEXT I 

1518 NEXT J 

1528 DATA 42,83,188,34 
1538 DATA 60,83,82,78 
1548 DATA 69,83,73,52 
1558 DATA 109,83,91,52 
1568 DATA 118,83,87,34 
1578 DATA 185,74,118,25 
1588 DATA 55,65,42,34 
1598 DATA 64,56,51,7 
1688 DATA 118,47,189,7 
1618 DATA 189,38,69,7 
1628 DATA 69,29,82,7 
1638 DATA 42,74,64,16 
1788 REH TO DRAW THE LADDERS 
1710 COLOR 1 

1728 PLOT 55,74:DRAWT0 51,61:DRAWTQ 46 
#61 

1738 PLOT 87,83:DRAWT0 9i,6i:DRAWT0 96 
#61 

1740 PLOT 118,65:DRAWTO 105,43:DRAWTO 
188,43 

1758 PLOT 42,56;DRAWTO 55,16;DRAWTO 68 
#16 

1768 PLOT 60,47:DRAWT0 64,25:DRAWTO 69 
,25 

1778 PLOT 118,38:DRAWTO 105,16:DRAWTO 
100,16 

1788 PLOT 87,38:DRAWTO 108,7:DRAWTO 10 
5# 7 

1798 PLOT 73,29:DRAWTO 78,16:DRAWTO 73 
#16 

1888 PLOT 46,20:DRAWTO 42,7:DRAWTO 37, 
7 

2808 FOR 1=0 TO 7:FOR J=8 TO 7 
2018 READ A:HAN(I,J)=A 
2028 NEXT JI NEXT I 
2838 DATA 0,8,0,1,1,8,0,8 
2848 DATA 8,8,0,1,1,0,0,8 
2858 DATA 8,8,0,1,1,8,0,8 
2860 DATA 1,1,1,1,1,1,1,1 
2878 DATA 1,1,1,1,1,1,1,1 
2088 DATA 8,0,0,1,1,8,8,0 
2898 DATA 0,8,8,1,1,8,0,0 
2180 DATA 0,8,8,1,1,0,8,0 
2280 FOR 1=8 TO 7:FOR J=8 TO 7 
2218 READ A:ATARI(I,J)=A 
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2228 NEXT JlNEXT I 

2238 DATA 1,1,1,8,0,1,1,1 

2248 DATA 1,1,1,8,8,1,1,1 

2258 DATA 1,1,1,8,8,1,1,1 

2260 DATA 8,8,8,8,8,8,8,8 

2278 DATA 8,8,8,8,8,8,0,8 

2288 DATA 1,1,1,8,8,1,1,1 

2298 DATA 1,1,1,8,0,1,1,1 

2388 DATA 1,1,1,8,8,1,1,1 

2488 HANX=27:MANY=82:ATARIX=27;ATARIY= 

82 

2418 HAN=0:ATARI=8 
2580 PLU5=INT(6*RND(0)+1) 

2510 COLOR 3 
2528 FOR 1=1 TO PLUS 
2538 PLOT 25,1*18 
2548 NEXT I 

2545 IF ATARI+PLUS>180 THEN 4888 
2558 FOR 1=8 TO 7 
2568 FOR J=8 TO 7 
2570 COLOR ATSPOT(I,J) 

2588 PLOT ATARIH+I,ATARIY+J 
2590 NEXT J 
2688 NEXT I 

2681 IF DRAWHANOl THEN 2689 

2682 COLOR 1 

2683 FOR 1=8 TO 7 

2684 FOR J=8 TO 7 

2605 IF MAN(I,J)=l THEN PLOT ATARIX+I, 

ATARIY+J 

2686 NEXT J 

2607 NEXT I 

2688 DRAWHAN=8 

2689 IF CH£CK=1 THEN 2628 
2618 ATARI=ATARI+PLUS 

2620 IF ATARIOHAN THEN 2678 
2625 DRAWAT=1 

2630 FOR 1=0 TO 7:FOR J=8 TO 7 
2648 ATSPOT(I,J)=HANSPOT(I,J) 

2658 NEXT J:NEXT I:ATARIX=MANX:ATARIY= 
HA NY 

2668 GOTO 3880 

2670 ATARIY=(82-INTC(ATARI-1)718)*9) 
2688 IF (INT((ATARI-1)710)72)=INT(INT( 
(ATARI-1)718)72) THEN ATARIX=(((((ATAR 
1-1)710)-INT((ATARI-1)710))*18)+l)*9+2 
7 

2698 IF (INT((ATARI-1) 718)72)0INT (INT 
((ATARI-1)710)72) THEN ATARIX=126-(((( 
(ATARI-1)718)-INT((ATARI-1)718))*10)+1 
)*9 

2788 FOR 1=8 TO 7 

2718 FOR J=8 TO 7 

2728 LOCATE ATARIX+I,ATARIY+J,Q 

2738 ATSPOT(I,J)=Q 

2748 NEXT J 

2758 NEXT I 



snakes cont 


3688 COLOR 1 
3018 FOR 1=8 TO 7 
3828 FOR J=8 TO 7 

3830 IF ATARKI, J)=l THEN PLOT ATARIX+ 
I,ATARIY+J 
3848 NEXT J 
3858 NEXT I 

3188 COLOR 8:PLOT 25,8:DRAHT0 25,55 
3118 IF CHECK=I THEN CHECKS:GOTO 3488 
3288 IF ATARI=55 THEN ATARI=37:CHECK=I 
:GOTO 3688 

3218 IF ATARI=57 THEN ATARI=52:CHECK=1 
:GOTO 3608 

3228 IF ATARI=55 THEN ATARI=64:CHECK=1 
’.GOTO 3688 

3238 IF ATARI=52 THEN ATARI=50:CHECK=I 
:GOTO 3688 

3248 IF ATARI=84 THEN ATARI=28:CHECK=i 
■GOTO 3680 

3258 IF ATARI=71 THEN ATARI=13:CHECK=1 
:G0T8 3608 

3268 IF ATARI=68 THEN ATARI=I:CHECK=i; 
GOTO 3608 

3278 IF ATARI=66 THEN ATARI=10:CHECK=1 
:GOTO 3680 

3288 IF ATARI=6i THEN ATARI=23:CHECK=I 
:GOTO 3686 

3258 IF ATARI=47 THEN ATARI=5:CHECK=I: 
GOTO 3688 

3308 IF ATARI=45 THEN ATARI=4:CHECK=1: 
GOTO 3680 

3318 IF ATARI=26 THEN ATARI=3:CHECK=1: 
GOTO 3680 

3488 IF CHECK=1 THEN CHECK=8 

3418 IF ATARI=6 THEN ATARI=34:CHECK=i: 

GOTO 3780 

3428 IF ATARI=18 THEN ATARI=35:CHECK=1 
:GOTQ 3708 

3438 IF ATARI=38 THEN ATARI=53:CHECK=1 
:GOT0 3780 

3448 IF ATARI=48 THEN ATARI=83:CHECK=i 
:GOTO 3788 

3458 IF ATARI=43 THEN ATARI=77:CHECK=1 
:60T0 3700 

3460 IF ATARI=5i THEN ATARI=88:CHECK=i 
|GOTO 3786 

3478 IF ATARI=55 THEN ATARI=53:CHECK=I 
:GOTO 3708 

3488 IF ATARI=65 THEN ATARI=85:CHECK=1 
:GOTO 3708 

3458 IF ATARI=75 THEN ATARI=188:CHECK= 
1:GOT0 3788 

3588 IF ATARI=108 THEN 7880 

3550 GOTO 4800 

3688 REH SNAKE SOUND 

3618 RESTORE 3680 

3628 FOR 1=1 TO 16:READ TONE 


3638 SOUND 8,TONE,18,8:FOR ZZ=1 TO i:N 
EXT ZZ 
3648 NEXT I 

3658 SOUND 0,8,8,8:FOR ZZ=1 TO 10:NEXT 
ZZ 

3668 SOUND 8,243,12,15:F0R ZZ=i TO 5:N 
EXT ZZ 

3678 SOUND 8,0,8,0 

3688 DATA 48,45,50,57,64,72,81,51,182, 

114,128,144,162,182,284,238 

3650 GOTO 2558 

3788 REN LADDER SOUND 

3710 FOR 1=1 TO 10 

3720 SOUND 8,25,8,15 

3738 FOR ZZ=i TO i:NEXT ZZ 

3748 SOUND 0,8,8,8 

3758 FOR ZZ=1 TO 3:NEXT ZZ 

3768 NEXT I 

3778 GOTO 2558 

4080 COLOR 8:PL0T 135,8:DRAMT0 135,50 
4810 COLOR 3 
4028 POKE 53275,0 
4038 PLUS=INT(6*RND(0)+1) 

4848 IF PEEK(53275}=5 THEN 4868 
4858 GOTO 4028 

4868 FOR 1=1 TO PLUS:PLOT 135,1*10:NEX 
T I 

4880 IF HAN+PLUS>100 THEN 2580 

4180 PLUS=PLUS 

4488 FOR 1=8 TO 7 

4418 FOR J=8 TO 7 

4428 COLOR MANSPOT(I,J) 

4438 PLOT HANX+I,MANY+J 
4448 NEXT J 
4458 NEXT I 

4468 IF DRAMATOl THEN 4535 
4478 COLOR 1 
4480 FOR I=0 TO 7 
4458 FOR J=8 TO 7 

4588 IF ATARICI,J}=1 THEN PLOT HANX+I, 

HANY+J 

4510 NEXT J 

4528 NEXT I 

4538 DRAHAT=8 

4535 IF CHECK=1 THEN 4558 

4540 HAN=HAN+PLUS 

4550 IF NANO ATARI THEN 4680 

4555 DRANHAN=1 

4568 FOR 1=8 TO 7:FOR J=8 TO 7 
4570 MANSPOT(I,J)=AT5POT(I,J} 

4588 NEXT JiNEXT I:NANX=ATARIX:NANY=AT 
ARIY 

4558 GOTO 4758 

4688 NANY=(82-INT((NAN-1)/18}*5) 

4618 IF (INK (NAN-1) ^18) Z2)=INT(INT((N 
AN-l)/10)/2) THEN NANX=(((((NAN-1)Z18) 
-INT((NAN-1)/10))*18)+l)*5+27 


4628 IF (INT((HAN-1) 718)/2) OlNT(INT(( 

NAN-1)/18)/2) THEN HANX=126-(((((NAN-1 

) f 18)-INT((NAN-1)/18) )*18) *1)*5 

4788 FOR 1=8 TO 7 

4718 FOR J=8 TO 7 

4720 LOCATE HANX+I,HANY+J,Q 

4730 NANSPOT(I,J)=Q 

4748 NEXT J 

4758 NEXT I 

4758 COLOR 1 

4880 FOR 1=0 TO 7 

4818 FOR J=0 TO 7 

4820 IF HAN(I,J)=1 THEN PLOT HANX+I,HA 
NY+J 

4838 NEXT J 
4848 NEXT I 

5188 COLOR 8:PL0T 25,8:DRAHT0 25,55 
5116 IF CHECK=1 THEN CHECK=0:G0T0 5488 
5280 IF NAN=55 THEN MAN=37:CHECK=1:G0T 
0 5688 

5218 IF HAN=57 THEN NAN=52:CKECK=1:G0T 
0 5608 

5228 IF HAN=55 THEN HAN=64:CHECK=1:G0T 
0 5680 

5230 IF HAN=52 THEN NAN=58:CHECK=1:G0T 
0 5608 

5246 IF NAN=84 THEN HAN=28^ CHECK=1:GOT 
0 5680 

5250 IF HAN=71 THEN NAN=13:CHECK=1:G0T 
0 5688 

5260 IF NAN=68 THEN NAN=l:CHECK=l:GOTO 
5680 

5278 IF MAN=66 THEN MAN=10:CHECK=1:GOT 
0 5680 

5288 IF HAN=61 THEN NAN=23:CHECK=1:GOT 
0 5688 

5258 IF HAN=47 THEN HAN=5:CHECK=1:GOTO 
5688 

5380 IF NAN=45 THEN NAN=4:CHECK=1:GOTO 
^5680 

5310 IF HAN=26 THEN NAN=3:CHECK=1:G0T0 
5608 

5400 IF CHECK=1 THEN CHECK=8 
5418 IF HAN=6 THEN NAN=34:CHECK=1:G0T0 
5708 

5428 IF NAN=18 THEN MAN=35:CHECK=1:G0T 
0 5780 

5430 IF MAN=30 THEN NAN=53:CHECK=1:GOT 
0 5788 

5448 IF NAN=48 THEN HAN=S3:CHECK=1:G0T 
0 5780 

5458 IF HAN=43 THEN NAN=77:CHECK=1:GOT 
0 5788 

5468 IF HAN=51 THEN NAN=88:CHECK=1:G0T 
0 5788 

5478 IF NAN=55 THEN HAN=53:CHECK=1:G0T 
0 5700 
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LABELS 

Recently, I find myself mailing a fairly large number of checks each 
month. While addressing envelopes, I suddenly thought “wouldn’t it 
be nice if I had a program where I could type in a few Fetters and have 
the program dig out the address and print a mailing label”. 

The result is a program I call ‘Labels’. Labels uses a data disk 
holding up to 681 addresses, each on one sector of the data disk (128 
bytes). 32 sectors of the disk hold an index which is loaded in memory 
at the beginning of a session and allows rapid location of any ad¬ 
dress. 

The key to finding an address is based on the first three letters of 
the last name plus the first two of the first name. An index is held in a 
string called INDEX$, each address being allotted six bytes, (five for 
the key plus one for expansion). Two programs from ANALOG 
magazine were vital to creating ‘Labels’, (they are referenced in the 
listing). One allows writing to disk without DOS and the other permits 
rapid string searches. 

When the program is run, you will be presented with a screen of 
labeled fields and a menu of choices. Choice #1 (EDIT) will produce a 
cursor in the first-name field. When you enter the first name and press 
return the cursor will jump to the second field (last-name). If you want 
to skip over a field, just press return. You can use CTRL backarrow to 
back up for re-editing. When the last field is entered, you will be 
returned to the menu. 

Other menu choices are: (2) CLEAR to clear all fields to blanks; (3) 
FIND to search for an address; (4) SAVE to save what is currently 
displayed on the screen; (5) DELETE to delete the address currently 
displayed; and (6) PRT LABEL to print a label of what is displayed. 

When you save an address a check is first made to determine if one 
with the same key exists. You wilt then be asked if you want to 
replace the current address (you can’t have two with the same key). If 
you have updated an old address, the answer is yes, but if you haven’t 
entered this name before, obviously some other name reduces to the 
same key. This might happen for example with John Jones Jr. and 
John Jones Sr. You will just have to find a way to change the name, 
putting a blank at the beginning of the first or last name for example. 
You’ll have to remember to enter the blanks when searching for the 
name. 

When you use option 3 (FIND) you will need to enter parts of 
last/first names. Just remember how the key is made. The last name is 
the primary identification. If three letters are available, they will all be 
used but as few as one could be used. In all cases the last occurance 
of a match in INDEX$ will be found. If a first name is supplied, as 
many as two of the first letters will be used. Leading blanks are 
significant but trailing ones are ignored. Upper and lowercase are also 
significant. INDEX$ can be viewed by hitting system reset and prin¬ 
ting it. Single names like ‘Wiebolts’ should appear in the last name 
field. 

This program uses a specially formatted data disk. First format the 
disk normally. Then run the ‘Labels’ program and press system reset. 
Make sure the data disk is in the drive and enter GOSUB 830. The disk 
will have X’s written into sectors 1-32 (the index) and sector 720. Use 
only this disk with the program ‘Labels’. The program writes directly 
to disk sectors and can easily mess up a normal disk. 

If you don’t like the field arrangement, it can easily be changed in 
lines 240 and following. The fields are specified in order in even 
numbered lines 242 and following (240 contains the number of fields). 
Each data statement contains the position in the record, the length of 
the field, the X screen position, Y screen position and the name of the 
field. You can have as many fields as you want but the total of all 
lengths can’t exceed 128. Be sure you finalize the new arrangement 
before you start entering addresses. If you change later, they won’t be 
compatible. 

Printing of labels is also controlled by a data statement (line 460). 
The arrangement is a sequence of two number values: number of 
blanks followed by a field number. If a 255 appears in the # blanks 
position it indicates a carriage return is to take place. A 255 in the 
field number place indicates the printing is finished. 

Only simple label printing is provided. The program assumes single 
width labels of size 3 : 1/2 x 15/16 inches. These will hold 5 lines and 
are separated by one line spacing. After the five, the program will br¬ 
ing the printer to the next label. You will have to manually position at 
the top of the first label where the 1st line goes. The lines are left 
justified. The program keeps track if fewer than five lines are printed 
and adjusts accordingly. 

Some enhancements to the program might be considered. I left the 
6th byte for each sector entry in the index with the idea it could be us¬ 
ed to tag labels to be printed in separate lists of addresses. Using a 
separate bit for each list, you could have 8 lists. When the name of a 
list is entered the program will go through and print a label for each 
address for which the appropriate bit is set. Another mod might be to 
have the program print a directory of addresses, perhaps with the list 
finding provision and maybe in alphabetical order. A reasonably fast 
sorting routine working on the index would be required. 

— Stan Ockers 


STRING MAGIC 

(reprint: STARFLEET, December, 1984) 

Page Flipping Magic 

Page flipping is the rapid changing of what is displayed on the 
screen between two or more images. This gives the illusion of move¬ 
ment, much like motion pictures. While there are several methods for 
accomplishing this, the example program will show you how you can 
use the string magic method. 

While the program is longer than the other two examples, the con¬ 
cept is really quite simple. First, draw an image on the screen. Save 
the screen image in a string. Draw the next image on the screen. Save 
that in a string, and so forth until all the different images have been 
saved in strings. Then display the strings on the screen one after the 
other to give the illusion of movement. 

Here is how you do it. Line 50 dimensions a string named DM$. 
We’ll use the string magic routine to point this string to the display 
memory area. The strings SM1$, SM2$ and SM3$ will be used to save 
the different versions of display memory. Each string is dimensioned 
for only 480 bytes instead of 3840 (the size of a mode 23 screen) 
because we will save only the first 480 bytes of the screen. 

Lines 90 through 110 invoke graphics mode 23 (mode 7 without a 
text window), set the background to dark blue and set our image (this 
time a bat) to black. The POKE 559,0 statement on Line 120 turns off 
the display. This is done for two reasons. First so you can’t see the 
different versions of the bat being drawn on the screen. Second, to 
make the program run faster while the different versions are being 
drawn. If you want to see the different versions drawn on the screen, 
omit Line 120 or change it to a REMARK. 

The parameters for the string magic routine are set up on Lines 150 
through 170. The ADDR parameter is set to point to display memory 
and the SIZE parameter is set to 3840 — the size of a mode 23 screen. 
After the string magic routine is called by the GOSUB on Line 190, the 
first version of the bat is drawn four times across the top of the 
screen. This is done on Lines 220 through 260. Next, Line 280 saves 
the first 480 bytes of display memory into the string SM1$. Since the 
variable DM$ now points to the display memory area, the statement 
SM1$ = DM$ will move the first 480 bytes (the dimensioned size of 
SM1$) of display memory into SM1$. 

On Line 300 is the same trick used in example program number 2. 
Here the statement DM$(2) = DM$(1) will move whatever is in position 
one of the string (in this case background color) to the rest of the str¬ 
ing. This results in the entire screen being cleared to the background 
color. 

The process of drawing four bats across the screen, saving the 
display in a string and clearing the display, is repeated until all three 
versions of the bat are saved in the strings SM1$, SM2$ and SM3$. 
This is done on Lines 220 through 480. 

Since the head and eyes of the bat are the same in each version, the 
subroutine in Lines 660 through 730 is used to draw the head and 
eyes. The POKE 559,34 statement on Line 500 turns back on the 
display. 

Now we’re ready to perform the animation by flipping through the 
different versions. Line 520 starts the process by moving the first ver¬ 
sion stored in string SM1$ into the first 480 bytes of display memory. 
The second version of the bat stored in SM2$ is moved into the next 
480 bytes of display memory. The subroutine in Line 750 moves the 
first 960 bytes of display memory into the next 960 bytes of display 
memory, then the first 1920 bytes to the next 1920 bytes. This gives us 
a full screen of bats. The subroutine also changes the color of the 
bats’ eyes just for effect. The process of moving different versions of 
the bat to display memeory is repeated indefinitely by Lines 520 
through 640, giving the illusion of continuous movement. 

The Magic Revealed 

If you don’t really care exactly how the string magic routine works 
then yu won’t need to read the rest of this section. Just remember the 
string magic routine can be used anytime you need to quickly move or 
modify sections of memory. There are many more applications for the 
routine — just use your imagination. 

Before you can understand exactly how the string magic routine 
works, you must first understand how BASIC stores information about 
variables used in a program. For each variable you enter BASIC 
creates an entry in a table called the Variable Value Table (VVT). The 
address of the VVT is always stored in locations 134 and 135 with the 
low byte first. You can get this address with the following statement: 
VVT = PEEK(134) + PEEK(135)*256. 

Each entry in the table is eight bytes long. The information in these 
eight bytes varies depending on the type of variable (simple, array or 
string). If the variable is simple the value of the variable is stored right 
in the table entry. However, if it’s a string or an array variable, then the 
entry contains information about where in the string/array area the str¬ 
ing or array can be found. See Table 1 for the format of the VVT entry 
for strings. 
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Armed with this knowledge, we are now ready to demystify the str- 
ing magic routine. This is the first statement: 
A = (ADDR-(PEEK(140) + PEEK(141)*256)). This gets the difference bet¬ 
ween the beginning of the string/array area (pointed to by locations 
140 and 141) and the new address to which you want the string to 
point. AH = INT(A/256):AL = A-(AH*256). This converts the offset we 
calculated above into the high byte AH and the low byte AL. 

VVT = PEEK(134) + PEEK(135)*256. This poins the variable VVT to 
the beginning of the Variable Value Table. 

Q = VVT + VNUM*8 + 2. This points the variable Q to the third byte 
(where the string/array offset is contained) of the VVT entry for the 
specific string to be modified. Since each table entry is 8 bytes long 
we multiply the variable number by eight to get the exact offset into 
the table. Don’t forget the first variable number is zero, not one. The 
+ 2 in the statement points Q to the third byte of the entry. 

The next two lines of the string magic routine are not really required 
and can be taken out after the program is debugged and working cor¬ 
rectly. The lines are simply checks to insure the validity of the ADDR 
parameter and the VNUM parameter. The ADDR must point past the 
beginning of the string/array area. The VNUM must point to a string 
variable. 

POKE Q,AL:POKE Q + 1,AH. This changes the string/array offset 
(bytes 3 and 4 of the entry) to the new offset. This will cause the string 
to point to our new address. Whenever you reference a string, BASIC 
gets the memory address of the string by adding the offset contained 
in the VVT to the address of the string/array area. Since the value we 
just poked in contains the difference between the beginning of the 
string/array area and the address to which we want to point the string, 
when the string is referenced we will point to the new address. 

POKE Q + 2,AL:POKE Q + 3,AH. This changes the current size of 
the string to the value contained in the SIZE parameter. The current 
string size is stored in positions 5 and 6 of the VVT entry. 

POKE Q + 4,AL:POKE Q + 5,AH:RETURN. This changes the dimen¬ 
sioned size of the string to the value contained in the SIZE parameter. 
The dimensioned size of the string is stored in positions 7 and 8 of the 
VVT entry. That’s all there is to it. Now you know how to use the string 
magic routine. I think you will be surprised at the things you can do 
with it. 

Table 1 

Variable Value Table entry for strings 
(data is listed by position, followed by the contents) 

1. 128 indicates an undimensioned string. 129 indicates a dimension¬ 
ed string. 

2. Not used for strings. 

3. 4. Offset into the string/array area — low byte first. 

5, 6. Current string length — low byte first. 

7, 8. Dimensioned string length — low byte first. 

— Charlie Parker 

RAMTALKER 

(reprint: STATUS, January, 1985) 

This is the first in a series of articles on the digital recording of 
sound with your Atari. I will present several modifications to what was 
originally an awkwardly coded and hard to follow program first appear¬ 
ing in BYTE magazine and adapted from that Apple program in the 
July, 1983 issue of ANTIC. In the course of updating this program, we 
should all learn something about programming, digital sound and 
special functions of the Atari. Rather than enumerate the changes 
made to Ed Stewart’s program (that program is now almost 
unrecognizable), I will discuss the specific points of the program as it 
now exists. 

The program requires a special circuit to allow the Atari to read an 
analog voltage at Port 3 (sorry, XL owners, we’ll fix this problem next 
month; in the meantime, get your circuit built). The schematic is in¬ 
cluded in this article. I have found the 2 MegOhm potentiometer in¬ 
cluded in the original circuit schematic may be eliminated with no ill 
effects on its operation. Once you have the circuit built (see accompa¬ 
nying construction article), you may read a changing voltage (as might 
be produced by a microphone), as a resistance value from 0 to 255. 
The circuit works well in its present form, although we may change it 
in future articles. 

The program, RAMTALKER, is a friendly, fast, easy to use program. 
After initialization, a menu is presented. To perform a desired func¬ 
tion, press the number corresponding to the function. A BASIC GET 
command eliminates the need to type Return. If the function you pick 
is not the one you want, press Return and the program will take you 
back to the original menu. After a function is selected, the program 
will prompt you for more information. 

RECORD asks for a sample speed. Sample speed is the speed at 
which the program will read the information coming in at the port. A 
sample speed of 1 will render the highest quality sound, while a value 
of 255 will result in nearly unintelligible noise. Once a sample speed 
is specified, followed by a Return, press the Start key to begin recor¬ 
ding. 


PLAY asks for a sample speed. This will be the speed at which the 
sound information contained in memory will be played back. A good 
speed is usually around 55, giving a natural sound to the playback. Of 
course, you may wish to have your recorded sounds resemble the 
Chipmunks or Lurch, in which case you will choose a higher or lower 
speed. Again, pressing Start after giving a sample speed will begin the 
playback. 

THROUGHPUT asks for a recording sample speed, and will allow 
you to play sounds through the speaker with no time limitations. 
Press Start to begin, and a System Reset will get you out of this one. 

SAVE and LOAD ask you for a file name. Include “D:, of “C: in the 
file specification. The program uses Atari’s Central Input/Output (CIO) 
routines, which makes saving and loading sound files quite fast, even 
though sound files are 132 sectors long (single density). 

WAVEFORM PLOT does just what it says. It plots a picture of the 
sound stored in memory (in locations 16384 to 32767, a full 16k) on a 
graph of Time against Frequency. The Time at a sample speed of 1 is 
a little over 7 seconds. I have not measured the frequency response of 
the system. We’ll do that in another article. The sound is divided into 4 
separate bands, so we are able to plot the entire contents of memory 
with some detail. To me, the waveform plotting routine is an exciting 
feature of this program. You can say a few words into your Atari, and 
then have the computer show you what your voice looks like. You can 
see how different sounds are similar, and where they are different. 
Looking at a plot of myself saying “file” and “while” gives me quite an 
appreciation for the difficult task a speech recognition system has to 
perform. 

These are the basics of RAMTALKER. In the coming months we will 
modify the program even further. Some things I hope we can do with 
the program: editing the sounds in memory; improvement of sound 
quality, special effects (echo and speed effects); and maybe, just 
maybe, some speech regognition. 

I am sure you have your own ideas as to where this program could 
go. I will be happy to hear your suggestions, criticism and comments. 
Next month will be a quick intro to digital sound theory, a new 
waveform plotting routine, and a few esoteric modifications. 

— Randy Holmes 

RAMTALKER CIRCUIT 

Construction Notes and Parts List 

In place of a microphone, you may want to substitute a simple 
quarter-inch jack or RCA jack to allow you to plug in a guitar, 
keyboard, or tape player. This will give you higher quality sound than 
recording from a mic will. Adjust the volume control on your sound 
source to get the best, most distortion-free sound. 

Parts: 1) .1 uF nonpolarized capacitor, available at Radio Shack. 2) 
NPN transistor 2N2222. This is a general purpose transistor, almost 
any NPN will work. 3) lOOkOhm fixed resistor (brown-black-yellow 
resistor code). 4) DB-9 connector plug (joystick plug to you and me). 

You may mount these components on a small circuit board (see 
Figure 2) or simply wire them together without a board; either way will 
work fine. Remember not to keep the soldering iron on the transistor 
too long, or you may damage the component. The same goes for the 
resistor and the capacitor, but they have a higher tolerance for heat. 
Also, be sure to observe the Emitter-Base-Collector specifications in 
the circuit. The back of the transistor package should have the pins 
specified in a diagram much like the transistor in Figure 1. 

After the circuit is constructed, simply run a two-conductor wire 
from the specified points on the circuit to the correct pins (7 & 9) on 
your port plug. Test the circuit by plugging it into Port 3, and run the 
RAMTALKER program. Select the THROUGHPUT option, with a sam¬ 
ple speed of 1. Plug in a microphone, guitar, tape player or some other 
sound source, and see if any sound comes from the TV/Monitor 
speaker. If not, go back and check your wiring, making sure all con¬ 
nections are good. With this circuit up and running, you are ready to 
begin digital sound recording with your Atari computer! 
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GROUND (PIN 9) 6 



Ralph Walden 

Teaches Assembly Language— #4 

For those of you using MAC/65, here are three macros which will 
display text on the screen. Before you use the macro “DISPLAY” or 
“SCREEN” you MUST have first used the macro MESSAGE. Once 
MESSAGE has been used, it can be referred to as a subroutine (as 
well as PUTEDIT). SCREEN will send 1 to 4 bytes to the screen. Exam¬ 
ple: SCREEN ‘1,32,155’ this will send I SPACE RETURN to the screen. 
After 3 or four bytes, it’s more efficient to use DISPLAY. DISPLAY will 
send whatever is in quotes plus on optional second byte parameter to 
the screen. It will NOT send a 0 (a graphics heart). Here are some ex¬ 
amples of its use: 

DISPLAY “Hello World!”,155 This will display the message in 
quotes and move the cursor to the next line. 

DISPLAY “What is the date?” This will display the message in 
quotes, and leave the cursor at the end of the message. 

You can also call MESSAGE directly as a subroutine (after you have 
used it as a macro) by loading X with the high byte of the address of 
the text, A with the low byte of the address of the text, and a JSR 
MESSAGE. 


0100 .MACRO MESSAGE 
0110 MESSAGE STA $E0 
0120 STX $E1 

0130 8MESL00P LDY #0 
0140 L0A ($E0) 

0150 BEQ 8MESEN0 

0160 JSR PUTEDIT 

0170 INC $E0 

0180 BNE 8MESL00P 

0190 INC $£1 

0200 BNE 0MESLOOP 

0210 tMESENO RTS 
0220 PUTEDIT TAY 
0230 LDA $E407 

0240 PHA 

0250 LDA $E406 

0260 PHA 

0270 TYA 

0280 RTS 

0290 .ENDM 

0300 .MACRO DISPLAY 

0310 LDA § 8TEXT 

0320 LDX # >8TEXT 

0330 JSR MESSAGE 

0340 JMP 0OUT 

0350 9TEXT .BYTE *$1 
0360 .IF *0>1 

0370 .BYTE %2 

0380 .ENOIF 

0390 .BYTE 0 

0400 80UT 
0410 .ENDM 

0420 .MACRO SCREEN 

0430 LDA <fjt1 

0440 JSR PUTEDIT 

0450 .IF *0>1 

0460 LDA #%2 

0470 JSR PUTEDIT 

0480 .ENDIF 

0490 .IF *0>2 

0500 LDA jf %3 

0510 JSR PUTEDIT 

0520 .ENDIF 

0530 .IF *0>3 

0540 LDA m 

0550 JSR PUTEDIT 

0560 .ENDIF 

0570 .IF %0>4 

0580 .ERROR "TOO MANY ARGUMENTS IN SCREEN" 

0590 .ENOIF 

0600 .ENDM 


BOUNTY BOB STRIKES BACK 

As n member of A.C.E. I am writing to all of you out there in “Bounty 
Bob” land. This review is of the exciting new game of “Bounty Bobs”. 
As the old adage goes, this game is worth every penny. “Bounty Bob 
Strikes Back” ($50, Big 5 Software, Box 9078-185, Van Nuys, CA 91409) 
is a sequel to “Miner 2049er”, and is by far the best I have ever seen! 
What designer Bill Hogue has done this time really makes your hair 
stand on end — or, I should say, Bounty Bob’s hair. 

This new game is as impressive as a new car! The tremendous 
graphics will test your color monitor — that’s for sure. There is 4 
channel sound and even program flexibility. That's right, I said flex¬ 
ibility. You can change several game parameters while playing or 
before startup. You can change (are you ready for this): number of 
lives, number of players, number of joysticks. You can enable or 
disable the Secret Messages scattered throughout the caverns. You 
can change the Bonus Limits at which you get another player. You 
can change the difficulty: Easy - filled in framework stays filled and 
dead Mutants remain dead from one life to the next; Medium - 
Mutants move slightly faster; Hard - filled in framwork resets and dead 
Mutants resurrect. FHEW! Oops not finished yet!! The final skill 
(should I say Insane) level is called “C’MON”. The bonus timer starts 
with 1000 fewer points. We aren’t through yet. You can also enable or 
disable the pause key function. You can change the volume of the 
background music, time the high score display is seen, time the main 
screen is seen, and you can change “Yukon Yohan” (the evil deed 
doer for whom Bob searches) to smoker or gum chewer! What this 
means I can only guess. You can change the number of letters 
displayed on the high score screen. Now. You can also change the 
Special Code used by the programmers which is actuated by pressing 
the Option key. What this does is still unknown to me. 

This gives you kind of an idea what is in store for good old Bounty 
Bob. The game resides in a 40k cartridge. There are 25 caverns and a 
lot of special equipment for Bob to use. Bob’s task is still to secure all 
levels of the mine, but he may also capture Yukon Yohan. The Mutants 
have gotten plum nasty. In fact they have multiplied! There’s up to 26 
of the little buggers on one of the levels. Are you shakin’ in your boots 
yet? By the way, be on the lookout for Mutants who can go up or down 
ladders, and even down slides! It seems as though they got smarter or 
something. 

But Bounty Bob can also do some neat new tricks! He can jump 
short or long distances. And if he eats a Super Energy Food Bar, these 
little goodies will pep old Bob up for those extra long leaps and 
bounds. They do wear off in a short time. 

Added features include Grain Elevators, Gravity Lift, Hydraulic Lifts, 
Suction Tubes, Mobile Suction Unit and Acid Rain. There may be 
more, but I haven’t seen them yet. With all this stuff to keep you going 
you will have fun with this game. 

PS: Before I forget, remember the phone number trick in Miner 
2049er? Well, it is possible to be trapped in an area where not even 
death is possible. Use the phone number to get you “special help” to 
get out of the situation (this only works on certain screens). 

— Stephen E. Warn 


♦a#*******##***#*#***##*** 


East Helena, MT 


Notes from Stan Ockers 



To use with the ’’APEFACE” 
interface, set switches to 1. 
No paper detect (down), 2. 
Print at CR (down), 3. 7 bits 
(up), and 4. Automatic 
Linefeed (up) . 

Labels 


To print only a few 
envelopes if you don’t want to 
bother with labels and have a 
friction-feed printer, adjust 
the length of the blank 
strings in lines 406 and 412. 


A real improvment in the 
program would be a list 
printing addition as described 
in the expansion part of the 
text for ’’Labels”. Hopefully 
ready for next month... 
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-Stan 



Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user’s group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Air¬ 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep’t: 3662 Vine Maple Dr., Eugene, OR 97405. 

‘‘President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 
503-689-1513 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
503-686-1490 

Secretary— Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
503-688-6872 

Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
503-689-7106. 

Editors— 

Mike Dunn, 3662 Vine Maple Dr, Eugene, OR 97405 503-344-6193 
— Jim Bumpas, 4405 Dillard Rd, Eugene, OR 97405 503-484-9925 
E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 
Eugene, OR 97404 503-688-1458 


Send 50c stamps or coin ($1 overseas) to the Ness’ for the new, 
updated ACE Library List-new in May 84 ! 


TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you-have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes ‘‘on line:’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 

SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr ’81 to June ’83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 



At 

C 


OMPU7ER 

jGnthusiasts 

3662 Vine Maple D: Guoene OR 97*405 






Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided diskAdfiVes with ar\ATR 8000 interface, 2- 8” double ' 
density disk drivdsfoan^ Epson M/$0 printer, a^Hayes SmartModpm- 
running the ARMljJJDfC Bulletin Board software wfffien'by Frank"!. Ha- 
band, 1206 N. Stafford St, Arlington, VA 22201. See tKeNov ’821ssue 
for complete detarte. ' 



MAIL 




